From 868490bbe111400d4a33e0e4e0ad06e3b096a0ce Mon Sep 17 00:00:00 2001 From: =?utf8?q?Gr=C3=A9goire=20Jadi?= Date: Wed, 12 Jun 2013 09:08:17 -0700 Subject: [PATCH] * mail/reporter.el (reporter-submit-bug-report): Handle missing package-name. Fixes: debbugs:14600 --- lisp/ChangeLog | 5 +++++ lisp/mail/reporter.el | 8 ++++---- 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 + + * mail/reporter.el (reporter-submit-bug-report): + Handle missing package-name. (Bug#14600) + 2013-06-12 Rüdiger Sonderfeld * 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) -- 2.39.2