🚀 go-pugleaf

The above named Mac mailer has the interesting quality of using `Re-'
instead of `Re:' in its replies.  I made the changes below to
accomodate.

--
*** vm-vars.el.~1~	Wed Jul  8 12:50:09 1992
--- vm-vars.el	Wed Jul  8 12:52:10 1992
***************
*** 291,294 ****
--- 291,300 ----
  Nil means don't prefix the Subject header.")
  
+ (defvar vm-reply-subject-prefix-match nil
+   "*Non-nil value should be a regular expression that will be used to
+ check whether a reply prefix is already present on the Subject line.
+ For example, `Re[:\-]' will match the results of common mailers.
+ Nil means match vm-reply-subject-prefix explicitly.")
+ 
  (defvar vm-reply-ignored-addresses nil
    "*Non-nil value should be a list of regular expressions that match
*** vm-reply.el.~1~	Wed Jul  8 12:39:53 1992
--- vm-reply.el	Wed Jul  8 12:39:00 1992
***************
*** 37,45 ****
  		in-reply-to (and (not (equal "" in-reply-to)) in-reply-to))
  	  (and subject vm-reply-subject-prefix
! 	       (let ((case-fold-search t))
  		 (not
  		  (equal
! 		   (string-match (regexp-quote vm-reply-subject-prefix)
! 				 subject)
  		   0)))
  	       (setq subject (concat vm-reply-subject-prefix subject))))
--- 37,47 ----
  		in-reply-to (and (not (equal "" in-reply-to)) in-reply-to))
  	  (and subject vm-reply-subject-prefix
! 	       (let ((case-fold-search t)
! 		     (re (if vm-reply-subject-prefix-match
! 			      vm-reply-subject-prefix-match 
! 			    (regexp-quote vm-reply-subject-prefix))))
  		 (not
  		  (equal
! 		   (string-match re subject)
  		   0)))
  	       (setq subject (concat vm-reply-subject-prefix subject))))
*** vm-sort.el.~1~	Thu Apr 23 01:39:53 1992
--- vm-sort.el	Wed Jul  8 12:38:21 1992
***************
*** 53,58 ****
  			    (case-fold-search t))
  			(downcase
! 			;; Remove `Re:'
! 			(if (string-match "^\\([ \t]*Re:[ \t]+\\)*" key)
  			    (substring key (match-end 0)) key)))))))
  
--- 53,58 ----
  			    (case-fold-search t))
  			(downcase
! 			;; Remove `Re:' or `Re-'
! 			(if (string-match "^\\([ \t]*Re[:\-][ \t]+\\)*" key)
  			    (substring key (match-end 0)) key)))))))
  

--
Brendan Kehoe, Sun Network Manager                      brendan@cs.widener.edu
Widener University                                                 Chester, PA
    In action-oriented shows, TV cops fire their guns in almost every episode;
       in Chicago, the average police officer fires a gun once every 27 years.