Mercurial > emacs
changeset 10184:4fe4f49bcdb1
(news-mail-reply): Restore the saved narrowing before calling `mail'.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Sat, 17 Dec 1994 00:50:52 +0000 |
| parents | 7e28ad5e1042 |
| children | 5f69627d9466 |
| files | lisp/mail/rnewspost.el |
| diffstat | 1 files changed, 12 insertions(+), 12 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/mail/rnewspost.el Sat Dec 17 00:41:34 1994 +0000 +++ b/lisp/mail/rnewspost.el Sat Dec 17 00:50:52 1994 +0000 @@ -270,18 +270,18 @@ (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 ()