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

Fixes: debbugs:14600

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 18f225ec3083fa963159da601816f11ed4438f5b..48124b85fe46ce52a4a2c01a9af5fdc7c647491d 100644 (file)
--- 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 cc20c5c06eaa1036bec9efa4d7411c53413c9dac..8f6715018c43e066df59afc0c884e70b8eb2ce01 100644 (file)
--- 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)