🚀 go-pugleaf

[There really should be a better way then the stuff I'm giving below]

There probably should be a varibale "mail-strip-reply-headers" that
each reply making program can use ... and, yes, I set the default of
my new varible to t here ...

Dan_Jacobson@ATT.COM  Naperville IL USA  +1 708 979 6364


*** GNUEmacs/emacs-18.57/lisp/rnewspost.el	Wed Jan  9 16:03:39 1991
--- rnewspost.el	Mon Mar 11 12:48:52 1991
***************
*** 240,245 ****
--- 240,256 ----
        (set-buffer-modified-p nil))
      (and (fboundp 'bury-buffer) (bury-buffer))))
  
+ ;;Idea from VM mailer, Dan_Jacobson@ATT.COM 1991-3-4
+ (defvar news-strip-reply-headers t
+   "*Non-nil value causes all comments and extraneous text from the
+ headers generated in e-mail reply messages to news postings.  If you
+ use the \"fakemail\" program as distributed with Emacs, you probably
+ want to set this variable to to t, because as of Emacs v18.57
+ \"fakemail\" could not handle unstripped headers; also this is in
+ line with a \"what you see is what you sent\" philosophy.
+ Created locally by Dan_Jacobson@ATT.COM 1991-3-4")
+ 
+ 
  ;@@ shares some code with news-reply and news-post-news
  (defun news-mail-reply ()
    "Mail a reply to the author of the current article.
***************
*** 258,263 ****
--- 269,286 ----
  	    date (mail-fetch-field "date"))
        (setq to from)
        (pop-to-buffer "*mail*")
+ 
+       ;;Idea from VM mailer, Dan_Jacobson@ATT.COM 1991-3-4
+       ;;As fakemail doesn't strip them as of 18.57...
+       ;;[I'm just inserting these lines here, and not tampering
+       ;;further with the code]
+       (if news-strip-reply-headers
+           (let ((mail-use-rfc822 t))
+             (require 'mail-utils)
+ 	    (or
+ 	     (and reply-to (setq reply-to (mail-strip-quoted-names reply-to)))
+ 	     (and to (setq to (mail-strip-quoted-names to))))))
+ 
        (mail nil
  	    (if reply-to reply-to to)
  	    subject