mailcrypt 3.4 and sgnus 0.26

mailcrypt 3.4 and sgnus 0.26

[David K}gedal]

Don't know if someone else already fixed this, but this patch enables
mailcrypt 3.4 to decrypt messages in September Gnus 0.26.

*** /usr/gnu/share/emacs/site-lisp/mc-toplev.el	Mon Jan 15 12:24:51 1996
--- /home/u9/davidk/elisp/mc-toplev.el	Mon Jan 15 13:14:36 1996
***************
*** 548,567 ****
         (save-restriction (widen) (mc-decrypt-message)))
      ;; Gnus 5 allows editing of articles.  (Actually, it makes a great
      ;; mail reader.)
!     (gnus-eval-in-buffer-window gnus-article-buffer
!       (gnus-summary-edit-article t)
!       (save-restriction
! 	(widen)
! 	(cond ((not (car (mc-decrypt-message)))
! 	       (gnus-summary-edit-article-postpone))
! 	      ((and (not (gnus-group-read-only-p))
! 		    (not (eq mc-always-replace 'never))
! 		    (or mc-always-replace
! 			(y-or-n-p
! 			 "Replace encrypted message on disk? ")))
! 	       (gnus-summary-edit-article-done))
! 	      (t
! 	       (gnus-summary-edit-article-postpone)))))))
  
  ;;}}}		
  ;;{{{ MH
--- 548,566 ----
         (save-restriction (widen) (mc-decrypt-message)))
      ;; Gnus 5 allows editing of articles.  (Actually, it makes a great
      ;; mail reader.)
!     (gnus-summary-edit-article t)
!     (save-restriction
!       (widen)
!       (cond ((not (car (mc-decrypt-message)))
! 	     (gnus-summary-edit-article-postpone))
! 	    ((and (not (gnus-group-read-only-p))
! 		  (not (eq mc-always-replace 'never))
! 		  (or mc-always-replace
! 		      (y-or-n-p
! 		       "Replace encrypted message on disk? ")))
! 	     (gnus-summary-edit-article-done))
! 	    (t
! 	     (gnus-summary-edit-article-postpone))))))
  
  ;;}}}		
  ;;{{{ MH


-- 
David Kågedal     Lysator Academic Computer Society       davidk@lysator.liu.se
http://www.lysator.liu.se/~davidk/                              +46-13 17 65 89

Re: mailcrypt 3.4 and sgnus 0.26

[Steven L Baur]

Thanks David, that's one less problem for me to report :-).  Reading a
PGP encrypted mailing list appears to work completely now.

Other Mailcrypt stuff:

Patrick has a patch for the Reply subject copying bug (Subjects
containing colons after ``Subject: '' as in ``Subject: Re: ...'' do
not get copied).

Mailcrypt also has problems speaking to the Freedom Remailer (used by
Amnesia to name one site).  Here is an experimental patch that starts
to deal with it.

Also, beware of (proper) pseudonym insertion, since Freedom by default
already inserts a From: line.  I've sent a patch to the author of
Freedom to allow pseudonyms, but it obviously doesn't apply to already
running sites.

--- /usr/local/lib/xemacs/site-lisp/mailcrypt-3.4/mc-remail.el	Wed Oct  4 15:45:56 1995
+++ ./mc-remail.el	Sat Jan 13 20:26:54 1996
@@ -683,7 +683,7 @@
   (let ((main-header (mc-find-main-header))
 	newsgroups)
     (setq newsgroups (mc-get-fields "Newsgroups" main-header t))
-    (mc-replace-colon-field "Post-To" (cdr (car newsgroups)))
+    (mc-replace-colon-field "Anon-Post-To" (cdr (car newsgroups)))
     (mail-mode)))
 
 (defun mc-rewrite-for-remailer (remailer &optional pause)
@@ -706,7 +706,10 @@
      (mc-remailer-pre-encrypt-hooks remailer))
 
     ;; Move "Subject" lines down.
-    (goto-char (car (mc-find-colon-header t)))
+    (if (member "ksub" (mc-remailer-properties remailer))
+	(goto-char (car (mc-find-hash-header t)))
+      (goto-char (car (mc-find-colon-header t))))
+
     (mapcar
      (function (lambda (f) (insert (car f) ":" (cdr f))))
      (mc-get-fields "Subject" main-header t))

Regards,
-- 
steve@miranova.com baur