Changeset 3863 for trunk/lisp/gnus/mml-smime.el
- Timestamp:
- 09/10/05 10:16:00 (3 years ago)
- Files:
-
- trunk/lisp/gnus/mml-smime.el (modified) (3 diffs)
Legend:
- Unmodified
- Added
- Removed
- Modified
- Copied
- Moved
trunk/lisp/gnus/mml-smime.el
r3809 r3863 55 55 (get-buffer tmp))) 56 56 (push tmp certfiles) 57 (setq file (mm-make-temp-file (expand-file-name "mml." 57 (setq file (mm-make-temp-file (expand-file-name "mml." 58 58 mm-tmp-directory))) 59 59 (with-current-buffer tmp … … 80 80 (if (= (length smime-keys) 1) 81 81 (cadar smime-keys) 82 (or (let ((from (cadr (funcall gnus-extract-address-components 82 (or (let ((from (cadr (funcall (if (boundp 83 'gnus-extract-address-components) 84 gnus-extract-address-components 85 'mail-extract-address-components) 83 86 (or (save-excursion 84 87 (save-restriction … … 106 109 (setq who (read-from-minibuffer 107 110 (format "%sLookup certificate for: " (or bad "")) 108 (cadr (funcall gnus-extract-address-components 111 (cadr (funcall (if (boundp 112 'gnus-extract-address-components) 113 gnus-extract-address-components 114 'mail-extract-address-components) 109 115 (or (save-excursion 110 116 (save-restriction
