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") |
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)) |