From: ueno <ueno>
Date: Sat, 6 Nov 1999 10:40:32 +0000 (+0000)
Subject: * mime-edit.el (mime-edit-encrypt-pgp-mime): Extract canonical
X-Git-Tag: emiko-1_13_7~44
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=bac516742426cedfebaf5cbf423b8efd70f4c4ba;p=elisp%2Fsemi.git

* mime-edit.el (mime-edit-encrypt-pgp-mime): Extract canonical
address of From field to use it as default user id; tokenize
bodies of the recipient fields.
(mime-edit-make-encrypt-recipient-header): Undo last change.
(mime-edit-translate-buffer): Do `undo-boundary'
before translating.
---

diff --git a/mime-edit.el b/mime-edit.el
index f81bafc..e3a915f 100644
--- a/mime-edit.el
+++ b/mime-edit.el
@@ -1642,6 +1642,7 @@ Parameter must be '(PROMPT CHOICE1 (CHOISE2 ...))."
 (defun mime-edit-translate-buffer ()
   "Encode the tagged MIME message in current buffer in MIME compliant message."
   (interactive)
+  (undo-boundary)
   (if (catch 'mime-edit-error
 	(save-excursion
 	  (run-hooks 'mime-edit-translate-buffer-hook)
@@ -1814,7 +1815,9 @@ Content-Transfer-Encoding: 7bit
 	     (or (string-equal value "")
 		 (progn
 		   (setq header (concat header name ": " value "\n")
-			 recipients (cons value recipients))
+			 recipients (if recipients
+					(concat recipients " ," value)
+				      value))
 		   ))))
       (setq names (cdr names)
 	    values (cdr values))
@@ -1830,7 +1833,7 @@ Content-Transfer-Encoding: 7bit
           (setq from (aref ret 0)
                 recipients (aref ret 1)
                 header (aref ret 2))
-          )
+	  )
         (narrow-to-region beg end)
         (let* ((ret
                 (mime-edit-translate-region beg end boundary))
@@ -1844,8 +1847,18 @@ Content-Transfer-Encoding: 7bit
               (insert (format "Content-Transfer-Encoding: %s\n" encoding))
             )
           (insert "\n")
-	  (or (let ((pgg-default-user-id (or from pgg-default-user-id)))
-		(pgg-encrypt-region (point-min) (point-max) recipients))
+	  (or (let ((pgg-default-user-id 
+		     (if from
+			 (nth 1 (std11-extract-address-components from))
+		       pgg-default-user-id)))
+		(pgg-encrypt-region 
+		 (point-min) (point-max) 
+		 (mapcar (lambda (recipient)
+			   (nth 1 (std11-extract-address-components
+				   recipient)))
+			 (split-string recipients 
+				       "\\([ \t\n]*,[ \t\n]*\\)+")))
+		)
 	      (throw 'mime-edit-error 'pgp-error)
 	      )
 	  (delete-region (point-min)(point-max))