[Emacs-diffs] trunk r112953: * mail/reporter.el (reporter-submit-bug-report): Handle missing package-name.

[Glenn Morris]

------------------------------------------------------------
revno: 112953
revision-id: address@hidden
parent: address@hidden
fixes bug: http://debbugs.gnu.org/14600
author: Grégoire Jadi <address@hidden>
committer: Glenn Morris <address@hidden>
branch nick: trunk
timestamp: Wed 2013-06-12 09:08:17 -0700
message:
  * mail/reporter.el (reporter-submit-bug-report): Handle missing package-name.
modified:
  lisp/ChangeLog                 changelog-20091113204419-o5vbwnq5f7feedwu-1432
  lisp/mail/reporter.el          reporter.el-20091113204419-o5vbwnq5f7feedwu-592

=== modified file 'lisp/ChangeLog'
--- a/lisp/ChangeLog    2013-06-12 12:42:35 +0000
+++ b/lisp/ChangeLog    2013-06-12 16:08:17 +0000
@@ -1,3 +1,8 @@
+2013-06-12  Grégoire Jadi  <address@hidden>
+
+       * mail/reporter.el (reporter-submit-bug-report):
+       Handle missing package-name.  (Bug#14600)
+
 2013-06-12  Rüdiger Sonderfeld  <address@hidden>
 
        * textmodes/reftex-cite.el (reftex-cite-regexp-hist)

=== modified file 'lisp/mail/reporter.el'
--- a/lisp/mail/reporter.el     2013-01-01 09:11:05 +0000
+++ b/lisp/mail/reporter.el     2013-06-12 16:08:17 +0000
@@ -341,10 +341,10 @@
     (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)