summaryrefslogtreecommitdiff
path: root/lisp/mail/reporter.el
diff options
context:
space:
mode:
authorGrégoire Jadi <daimrod@gmail.com>2013-06-12 09:08:17 -0700
committerGlenn Morris <rgm@gnu.org>2013-06-12 09:08:17 -0700
commit868490bbe111400d4a33e0e4e0ad06e3b096a0ce (patch)
tree04b82d35713f4a12d65685907fd75aea005889bc /lisp/mail/reporter.el
parent02a87775d4ee494309408f4bd0eddbaba6394011 (diff)
downloademacs-868490bbe111400d4a33e0e4e0ad06e3b096a0ce.tar.gz
* mail/reporter.el (reporter-submit-bug-report): Handle missing package-name.
Fixes: debbugs:14600
Diffstat (limited to 'lisp/mail/reporter.el')
-rw-r--r--lisp/mail/reporter.el8
1 files changed, 4 insertions, 4 deletions
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)