diff options
| author | Richard M. Stallman <rms@gnu.org> | 1994-07-05 21:02:48 +0000 |
|---|---|---|
| committer | Richard M. Stallman <rms@gnu.org> | 1994-07-05 21:02:48 +0000 |
| commit | ba9f641384fa026c784473fda90b2a000ee43073 (patch) | |
| tree | f02b412a18fd23e17546e4ce2a3eea6f27184096 /lisp/gnusmail.el | |
| parent | 69718e9d7c3d6d9c7d0e1c2afbfecd4e3a9f4eb7 (diff) | |
| download | emacs-ba9f641384fa026c784473fda90b2a000ee43073.tar.gz emacs-ba9f641384fa026c784473fda90b2a000ee43073.tar.bz2 emacs-ba9f641384fa026c784473fda90b2a000ee43073.zip | |
(gnus-mail-reply-using-mhe): Handle case of no subject.
Diffstat (limited to 'lisp/gnusmail.el')
| -rw-r--r-- | lisp/gnusmail.el | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/lisp/gnusmail.el b/lisp/gnusmail.el index bc906d5f29d..b8f62346565 100644 --- a/lisp/gnusmail.el +++ b/lisp/gnusmail.el @@ -152,7 +152,8 @@ The command \\[mh-yank-cur-msg] yank the original message into current buffer." (save-restriction (gnus-article-show-all-headers) ;I don't think this is really needed. (setq from (gnus-fetch-field "from") - subject (let ((subject (gnus-fetch-field "subject"))) + subject (let ((subject (or (gnus-fetch-field "subject") + "(None)"))) (if (and subject (not (string-match "^[Rr][Ee]:.+$" subject))) (concat "Re: " subject) subject)) |