2000-11-30 14:00:00 ShengHuo ZHU <zsh@cs.rochester.edu>

[gnus] / lisp / mml-smime.el

diff --git a/lisp/mml-smime.el b/lisp/mml-smime.el
index 7143239..16eff67 100644 (file)
--- a/lisp/mml-smime.el
+++ b/lisp/mml-smime.el
@@ -135,10 +135,11 @@
                   (smime-pkcs7-certificates-region (point-min) (point-max)))
          (with-temp-buffer
            (insert-buffer-substring (mm-handle-multipart-original-buffer ctl))
-           (if (not (member from (and (smime-pkcs7-email-region
-                                       (point-min) (point-max))
-                                      (smime-buffer-as-string-region
-                                       (point-min) (point-max)))))
+           (if (not (member mm-security-from
+                            (and (smime-pkcs7-email-region
+                                  (point-min) (point-max))
+                                 (smime-buffer-as-string-region
+                                  (point-min) (point-max)))))
                (progn
                  (mm-set-handle-multipart-parameter 
                   mm-security-handle 'gnus-info "Sender forged")