diff options
| -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." | |||
| 152 | (save-restriction | 152 | (save-restriction |
| 153 | (gnus-article-show-all-headers) ;I don't think this is really needed. | 153 | (gnus-article-show-all-headers) ;I don't think this is really needed. |
| 154 | (setq from (gnus-fetch-field "from") | 154 | (setq from (gnus-fetch-field "from") |
| 155 | subject (let ((subject (gnus-fetch-field "subject"))) | 155 | subject (let ((subject (or (gnus-fetch-field "subject") |
| 156 | "(None)"))) | ||
| 156 | (if (and subject | 157 | (if (and subject |
| 157 | (not (string-match "^[Rr][Ee]:.+$" subject))) | 158 | (not (string-match "^[Rr][Ee]:.+$" subject))) |
| 158 | (concat "Re: " subject) subject)) | 159 | (concat "Re: " subject) subject)) |