* mail/reporter.el (reporter-submit-bug-report): Handle missing package-name.

Fixes: debbugs:14600

2 files changed, 9 insertions, 4 deletions

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 18f225ec308..48124b85fe4 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2013-06-12  Grégoire Jadi  <daimrod@gmail.com>
+
+        * mail/reporter.el (reporter-submit-bug-report):
+        Handle missing package-name.  (Bug#14600)
+
 2013-06-12  Rüdiger Sonderfeld  <ruediger@c-plusplus.de>
 
         * textmodes/reftex-cite.el (reftex-cite-regexp-hist)
diff --git a/lisp/mail/reporter.el b/lisp/mail/reporter.el
index cc20c5c06ea..8f6715018c4 100644
--- a/lisp/mail/reporter.el
+++ b/lisp/mail/reporter.el
@@ -341,10 +341,10 @@ mail-sending package is used for editing and sending the message."
     (mail-position-on-field "to")
     (insert address)
     ;; insert problem summary if available
-    (if (and reporter-prompt-for-summary-p problem pkgname)
-        (progn
-          (mail-position-on-field "subject")
-          (insert pkgname "; " problem)))
+    (when (and reporter-prompt-for-summary-p problem)
+      (mail-position-on-field "subject")
+      (if pkgname (insert pkgname "; "))
+      (insert problem))
     ;; move point to the body of the message
     (mail-text)
     (forward-line 1)