/[emacs]/emacs/lisp/gnus/mml-smime.el
ViewVC logotype

Diff of /emacs/lisp/gnus/mml-smime.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.6 by lektu, Wed Aug 31 13:08:28 2005 UTC revision 1.7 by miles, Mon Sep 5 23:58:07 2005 UTC
# Line 81  Line 81 
81    (list 'keyfile    (list 'keyfile
82          (if (= (length smime-keys) 1)          (if (= (length smime-keys) 1)
83              (cadar smime-keys)              (cadar smime-keys)
84            (or (let ((from (cadr (funcall gnus-extract-address-components            (or (let ((from (cadr (funcall (if (boundp
85                                                  'gnus-extract-address-components)
86                                                 gnus-extract-address-components
87                                               'mail-extract-address-components)
88                                           (or (save-excursion                                           (or (save-excursion
89                                                 (save-restriction                                                 (save-restriction
90                                                   (message-narrow-to-headers)                                                   (message-narrow-to-headers)
# Line 107  Line 110 
110          (while (not result)          (while (not result)
111            (setq who (read-from-minibuffer            (setq who (read-from-minibuffer
112                       (format "%sLookup certificate for: " (or bad ""))                       (format "%sLookup certificate for: " (or bad ""))
113                       (cadr (funcall gnus-extract-address-components                       (cadr (funcall (if (boundp
114                                             'gnus-extract-address-components)
115                                            gnus-extract-address-components
116                                          'mail-extract-address-components)
117                                      (or (save-excursion                                      (or (save-excursion
118                                            (save-restriction                                            (save-restriction
119                                              (message-narrow-to-headers)                                              (message-narrow-to-headers)

Legend:
Removed from v.1.6  
changed lines
  Added in v.1.7

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26