/[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.5 by ttn, Sat Aug 6 19:51:42 2005 UTC revision 1.6 by lektu, Wed Aug 31 13:08:28 2005 UTC
# Line 29  Line 29 
29    
30  (eval-when-compile (require 'cl))  (eval-when-compile (require 'cl))
31    
32    (defvar gnus-extract-address-components)
33    
34  (require 'smime)  (require 'smime)
35  (require 'mm-decode)  (require 'mm-decode)
36  (autoload 'message-narrow-to-headers "message")  (autoload 'message-narrow-to-headers "message")
# Line 54  Line 56 
56        (if (not (and (not (file-exists-p tmp))        (if (not (and (not (file-exists-p tmp))
57                      (get-buffer tmp)))                      (get-buffer tmp)))
58            (push tmp certfiles)            (push tmp certfiles)
59          (setq file (mm-make-temp-file (expand-file-name "mml."          (setq file (mm-make-temp-file (expand-file-name "mml."
60                                                          mm-tmp-directory)))                                                          mm-tmp-directory)))
61          (with-current-buffer tmp          (with-current-buffer tmp
62            (write-region (point-min) (point-max) file))            (write-region (point-min) (point-max) file))

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

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