# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 787625452 0
# Node ID 4fe4f49bcdb1f35f4e685c0aef20ec6c6e0b4550
# Parent  7e28ad5e104246a8c661b48564515a1baad77167
(news-mail-reply): Restore the saved narrowing before calling `mail'.

diff -r 7e28ad5e1042 -r 4fe4f49bcdb1 lisp/mail/rnewspost.el
--- 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 ()