From: ueno <ueno>
Date: Fri, 26 Nov 1999 05:34:27 +0000 (+0000)
Subject: * mime-edit.el (mime-edit-sign-pgp-mime): Regard
X-Git-Tag: emiko-1_13_8~17
X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=f0705d3f2d9667383a418f617f0010f8706115c2;p=elisp%2Fsemi.git

* mime-edit.el (mime-edit-sign-pgp-mime): Regard
`pgg-default-user-id' as more preferrable if it's specified.
(mime-edit-encrypt-pgp-mime): Ditto.
---

diff --git a/mime-edit.el b/mime-edit.el
index f089b53..36ae247 100644
--- a/mime-edit.el
+++ b/mime-edit.el
@@ -642,6 +642,11 @@ If it is not specified for a major-mode,
 	  " ("
 	  (mime-product-code-name mime-library-product)
 	  ") "
+	  (condition-case nil
+	      (progn
+		(require 'apel-ver)
+		(concat (apel-version) " "))
+	    (file-error nil))
 	  (if (featurep 'xemacs)
 	      (concat (cond ((featurep 'utf-2000)
 			     (concat "UTF-2000-MULE/" utf-2000-version))
@@ -1765,9 +1770,9 @@ Parameter must be '(PROMPT CHOICE1 (CHOISE2 ...))."
 	  )
 	(insert "\n")
 	(or (let ((pgg-default-user-id 
-		     (if from
-			 (nth 1 (std11-extract-address-components from))
-		       pgg-default-user-id)))
+		   (if (and from (not pgg-default-user-id))
+		       (nth 1 (std11-extract-address-components from))
+		     pgg-default-user-id)))
 	      (pgg-sign-region (point-min)(point-max)))
 	    (throw 'mime-edit-error 'pgp-error)
 	    )
@@ -1855,7 +1860,7 @@ Content-Transfer-Encoding: 7bit
           (insert "\n")
 	  (eword-encode-header)
 	  (or (let ((pgg-default-user-id 
-		     (if from
+		     (if (and from (not pgg-default-user-id))
 			 (nth 1 (std11-extract-address-components from))
 		       pgg-default-user-id)))
 		(pgg-encrypt-region