Don't depend on Gnus by using mail-extract-address-components if
gnus-extract-address-components is not bound.
+2005-09-04 Reiner Steib <Reiner.Steib@gmx.de>
+
+ * mml-smime.el (mml-smime-sign-query, mml-smime-get-dns-cert):
+ Don't depend on Gnus by using mail-extract-address-components if
+ gnus-extract-address-components is not bound.
+
2005-09-04 Lars Magne Ingebrigtsen <larsi@gnus.org>
* gnus-art.el (gnus-mime-display-security): Don't display the
2005-09-04 Lars Magne Ingebrigtsen <larsi@gnus.org>
* gnus-art.el (gnus-mime-display-security): Don't display the
(list 'keyfile
(if (= (length smime-keys) 1)
(cadar smime-keys)
(list 'keyfile
(if (= (length smime-keys) 1)
(cadar smime-keys)
- (or (let ((from (cadr (funcall gnus-extract-address-components
+ (or (let ((from (cadr (funcall (if (boundp
+ 'gnus-extract-address-components)
+ gnus-extract-address-components
+ 'mail-extract-address-components)
(or (save-excursion
(save-restriction
(message-narrow-to-headers)
(or (save-excursion
(save-restriction
(message-narrow-to-headers)
(while (not result)
(setq who (read-from-minibuffer
(format "%sLookup certificate for: " (or bad ""))
(while (not result)
(setq who (read-from-minibuffer
(format "%sLookup certificate for: " (or bad ""))
- (cadr (funcall gnus-extract-address-components
+ (cadr (funcall (if (boundp
+ 'gnus-extract-address-components)
+ gnus-extract-address-components
+ 'mail-extract-address-components)
(or (save-excursion
(save-restriction
(message-narrow-to-headers)
(or (save-excursion
(save-restriction
(message-narrow-to-headers)