1. xemacs
  2. mailcrypt

Source

mailcrypt / mc-remail.el

Diff from to

File mc-remail.el

 
 PROPERTIES is a space-separated set of strings.
 
-This format is named after Raphael Levien, who maintains a list of
-active remailers.  Do \"finger rlist@publius.net\"
-for the latest copy of his list.")
+This format is named after Raphael Levien, who maintained a list of
+active remailers. Do \"finger rlist@noisebox.remailer.org\" or
+\"finger rlist@mixmaster.shinn.net\" for the latest copy of the
+remailer list.")
 
 (defvar mc-remailer-user-chains nil
   "An alist of remailer chains defined by the user.
 when you are prompted for your pseudonym.")
 
 (defvar mc-remailer-preserved-headers
-  '("References" "Followup-to" "In-reply-to")
+  '("References" "Followup-to" "In-reply-to" "Subject")
   "*Header fields which are preserved as hashmark headers when rewriting.
 
 This is a list of strings naming the preserved headers.  Note that
-\"Subject\", \"Newsgroups\", and \"To\" are handled specially and
-should not be included in this list.")
+\"Newsgroups\" and \"To\" are handled specially and should not be included in
+this list.")
 
 ;;}}}
 ;;{{{ Handling Levien format remailer lists
 	    (if (mc-get-fields "From" colon-header)
 		"Send-To"
 	      (cond
-	       ((member "eric" props) "Anon-Send-To")
-	       ((member "cpunk" props) "Request-Remailing-To")
+	       ((member "cpunk" props) "Anon-To")
 	       (t (error "Remailer %s is not type-1" addr)))))
       (mc-replace-field to-field to colon-header)
       (mc-nuke-field "Reply-to" main-header))))
      (function (lambda (hook) (funcall hook remailer)))
      (mc-remailer-pre-encrypt-hooks remailer))
 
-    ;; Move "Subject" lines down.
-    (goto-char (car (mc-find-colon-header t)))
-    (mapcar
-     (function (lambda (f) (insert (car f) ":" (cdr f))))
-     (mc-get-fields "Subject" main-header t))
-
     (if pause
 	(let ((cursor-in-echo-area t))
 	  (message "SPC to encrypt for %s : " addr)