projects
/
gnus
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Merge from emacs--devo--0, emacs--rel--22
[gnus]
/
lisp
/
mm-uu.el
diff --git
a/lisp/mm-uu.el
b/lisp/mm-uu.el
index
693fe73
..
52d47b7
100644
(file)
--- a/
lisp/mm-uu.el
+++ b/
lisp/mm-uu.el
@@
-305,11
+305,10
@@
apply the face `mm-uu-extract'."
(mm-uu-configure)
(mm-uu-configure)
-(eval-when-compile
- (defvar file-name)
- (defvar start-point)
- (defvar end-point)
- (defvar entry))
+(defvar file-name)
+(defvar start-point)
+(defvar end-point)
+(defvar entry)
(defun mm-uu-uu-filename ()
(if (looking-at ".+")
(defun mm-uu-uu-filename ()
(if (looking-at ".+")
@@
-375,8
+374,7
@@
apply the face `mm-uu-extract'."
(list mm-dissect-disposition
(cons 'filename file-name))))
(list mm-dissect-disposition
(cons 'filename file-name))))
-(eval-when-compile
- (defvar gnus-newsgroup-name))
+(defvar gnus-newsgroup-name)
(defun mm-uu-emacs-sources-test ()
(setq file-name (match-string 1))
(defun mm-uu-emacs-sources-test ()
(setq file-name (match-string 1))
@@
-470,8
+468,7
@@
apply the face `mm-uu-extract'."
(y-or-n-p "Verify pgp signed part? ")
(message ""))))))
(y-or-n-p "Verify pgp signed part? ")
(message ""))))))
-(eval-when-compile
- (defvar gnus-newsgroup-charset))
+(defvar gnus-newsgroup-charset)
(defun mm-uu-pgp-signed-extract-1 (handles ctl)
(let ((buf (mm-uu-copy-to-buffer (point-min) (point-max))))
(defun mm-uu-pgp-signed-extract-1 (handles ctl)
(let ((buf (mm-uu-copy-to-buffer (point-min) (point-max))))