🚀 go-pugleaf

RetroBBS NetNews Server

Inspired by RockSolid Light RIP Retro Guy

Article View: gnu.emacs.vm.bug
Article #9709

Solution to "References" header problem in reply

#9709
From: Noah Friedman
Date: Mon, 18 Mar 1991 18:14
48 lines
2120 bytes
   The following is a diff for VM 5.28 vm-reply.el which does two things.
First, it fixes the problem with the References header being inserted after
the "--text follows this line--" separator; and secondly (and more
importantly, IMHO) it makes the insertion of the References header
optional.  The variable `vm-include-annoying-references-header-in-reply'
controls this.  Setting it to non-`nil' means the References header will be
included. 

   Umm, it occurs to me that I didn't defvar this variable... Well, just
make sure you define it in your ~/.vm file I guess.

Enjoy.

---
Noah Friedman
friedman@ai.mit.edu

----------------------------------- CUT HERE -----------------------------------
*** vm-reply.el	Mon Mar 18 12:49:29 1991
--- vm-reply.el~	Sat Mar 16 00:36:55 1991
***************
*** 108,114 ****
  		  vm-message-pointer message-pointer
  		  vm-reply-list mlist
  		  default-directory dir)
! 	    (if (and references vm-include-annoying-references-header-in-reply)
  		(save-excursion
  		  (let ((regexp (concat "^"
  					(regexp-quote mail-header-separator)
--- 108,114 ----
  		  vm-message-pointer message-pointer
  		  vm-reply-list mlist
  		  default-directory dir)
! 	    (if references
  		(save-excursion
  		  (let ((regexp (concat "^"
  					(regexp-quote mail-header-separator)
***************
*** 115,121 ****
  					"$")))
  		    (goto-char (point-min))
  		    (re-search-forward regexp nil t)
-                     (beginning-of-line)
  		    (insert "References: " references "\n"))))
  	    (if include-text
  		(save-excursion
--- 115,120 ----
Technical Details
Message-ID: <9103181814.AA17372@pop-tarts>
Path: arc1-ca.pugleaf.net!gmdzi!unido!mcsun!uunet!wendy-fate.uu.net!bug-vm

Show Full Headers
Complete Article Headers
X-Google-Language: ENGLISH,ASCII-7-bit
X-Google-Thread: f6829,c68a6fcdacd71058,start
X-Google-Attributes: gidf6829,public
X-Google-ArrivalTime: 1991-03-18 12:26:58 PST
Path: arc1-ca.pugleaf.net!gmdzi!unido!mcsun!uunet!wendy-fate.uu.net!bug-vm
From: friedman@ai.mit.edu (Noah Friedman)
Newsgroups: gnu.emacs.vm.bug
Subject: Solution to "References" header problem in reply
Message-ID: <9103181814.AA17372@pop-tarts>
Date: 18 Mar 91 18:14:27 GMT
Sender: bug-vm-request@uunet.uu.net
Lines: 48