From 8d1d11d883338a4bef79fc34ac2315c4498a04b5 Mon Sep 17 00:00:00 2001 From: Juanma Barranquero Date: Wed, 31 Aug 2005 13:08:28 +0000 Subject: (gnus-extract-address-components): Add defvar. --- lisp/gnus/mml-smime.el | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) diff --git a/lisp/gnus/mml-smime.el b/lisp/gnus/mml-smime.el index 2c37c52e3b..8a5ba61d00 100644 --- a/lisp/gnus/mml-smime.el +++ b/lisp/gnus/mml-smime.el @@ -29,6 +29,8 @@ (eval-when-compile (require 'cl)) +(defvar gnus-extract-address-components) + (require 'smime) (require 'mm-decode) (autoload 'message-narrow-to-headers "message") @@ -54,7 +56,7 @@ (if (not (and (not (file-exists-p tmp)) (get-buffer tmp))) (push tmp certfiles) - (setq file (mm-make-temp-file (expand-file-name "mml." + (setq file (mm-make-temp-file (expand-file-name "mml." mm-tmp-directory))) (with-current-buffer tmp (write-region (point-min) (point-max) file)) -- cgit v1.2.3