diff options
author | Richard M. Stallman <[email protected]> | 1994-12-17 00:50:52 +0000 |
---|---|---|
committer | Richard M. Stallman <[email protected]> | 1994-12-17 00:50:52 +0000 |
commit | 56eb270e3b1d9ee8ef6c87748372229b835b37a9 (patch) | |
tree | a4b66f1df38282b1bfc8db114c2aa2803689f6e7 /lisp/mail | |
parent | 9821535a4452685f81f54003a6f5319204f5e80a (diff) |
(news-mail-reply): Restore the saved narrowing before calling `mail'.
Diffstat (limited to 'lisp/mail')
-rw-r--r-- | lisp/mail/rnewspost.el | 24 |
1 files changed, 12 insertions, 12 deletions
diff --git a/lisp/mail/rnewspost.el b/lisp/mail/rnewspost.el index 2824a0fbb0..157892489b 100644 --- a/lisp/mail/rnewspost.el +++ b/lisp/mail/rnewspost.el @@ -270,18 +270,18 @@ original message into it." (setq from (mail-fetch-field "from") subject (mail-fetch-field "subject") reply-to (mail-fetch-field "reply-to") - date (mail-fetch-field "date")) - (setq to from) - (pop-to-buffer "*mail*") - (mail nil - (if reply-to reply-to to) - subject - (let ((stop-pos (string-match " *at \\| *@ \\| *(\\| *<" from))) - (concat (if stop-pos (substring from 0 stop-pos) from) - "'s message of " - date)) - nil - buffer)))) + date (mail-fetch-field "date"))) + (setq to from) + (pop-to-buffer "*mail*") + (mail nil + (if reply-to reply-to to) + subject + (let ((stop-pos (string-match " *at \\| *@ \\| *(\\| *<" from))) + (concat (if stop-pos (substring from 0 stop-pos) from) + "'s message of " + date)) + nil + buffer))) ;@@ the guts of news-reply and news-post-news should be combined. -tower (defun news-reply () |