Mercurial > emacs
comparison lisp/gnus/mml-smime.el @ 87028:6ffab455d556
(gnus-extract-address-components): Define for compiler.
(password-read, password-cache-add, password-cache-remove):
No need to autoload, since mml-sec requires password.
author | Glenn Morris <rgm@gnu.org> |
---|---|
date | Tue, 04 Dec 2007 04:04:41 +0000 |
parents | 1cdfc94602cb |
children | 4b1974470f60 |
comparison
equal
deleted
inserted
replaced
87027:a0a420068a59 | 87028:6ffab455d556 |
---|---|
139 t) | 139 t) |
140 (while (setq tmp (pop tmpfiles)) | 140 (while (setq tmp (pop tmpfiles)) |
141 (delete-file tmp)) | 141 (delete-file tmp)) |
142 nil)) | 142 nil)) |
143 (goto-char (point-max))) | 143 (goto-char (point-max))) |
144 | |
145 (defvar gnus-extract-address-components) | |
144 | 146 |
145 (defun mml-smime-openssl-sign-query () | 147 (defun mml-smime-openssl-sign-query () |
146 ;; query information (what certificate) from user when MML tag is | 148 ;; query information (what certificate) from user when MML tag is |
147 ;; added, for use later by the signing process | 149 ;; added, for use later by the signing process |
148 (when (null smime-keys) | 150 (when (null smime-keys) |
317 (autoload 'epg-encrypt-string "epg") | 319 (autoload 'epg-encrypt-string "epg") |
318 (autoload 'epg-passphrase-callback-function "epg") | 320 (autoload 'epg-passphrase-callback-function "epg") |
319 (autoload 'epg-context-set-passphrase-callback "epg") | 321 (autoload 'epg-context-set-passphrase-callback "epg") |
320 (autoload 'epg-configuration "epg-config") | 322 (autoload 'epg-configuration "epg-config") |
321 (autoload 'epg-expand-group "epg-config") | 323 (autoload 'epg-expand-group "epg-config") |
322 (autoload 'epa-select-keys "epa") | 324 (autoload 'epa-select-keys "epa")) |
323 (autoload 'password-read "password") | |
324 (autoload 'password-cache-add "password") | |
325 (autoload 'password-cache-remove "password")) | |
326 | 325 |
327 (defvar mml-smime-epg-secret-key-id-list nil) | 326 (defvar mml-smime-epg-secret-key-id-list nil) |
328 | 327 |
329 (defun mml-smime-epg-passphrase-callback (context key-id ignore) | 328 (defun mml-smime-epg-passphrase-callback (context key-id ignore) |
330 (if (eq key-id 'SYM) | 329 (if (eq key-id 'SYM) |