projects
/
elisp
/
gnus.git-
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
bddf0fe
)
Synch with Gnus.
t-gnus-6_14-quimby-before-installer-changed-
author
yamaoka
<yamaoka>
Wed, 8 Nov 2000 01:51:18 +0000
(
01:51
+0000)
committer
yamaoka
<yamaoka>
Wed, 8 Nov 2000 01:51:18 +0000
(
01:51
+0000)
lisp/ChangeLog
patch
|
blob
|
history
lisp/mm-uu.el
patch
|
blob
|
history
diff --git
a/lisp/ChangeLog
b/lisp/ChangeLog
index
bee3d20
..
744f910
100644
(file)
--- a/
lisp/ChangeLog
+++ b/
lisp/ChangeLog
@@
-2,6
+2,7
@@
* mm-uu.el (mm-uu-type-alist): Don't test pgp stuff.
(mm-uu-pgp-encrypted-extract): Clean mml2015 buffer.
* mm-uu.el (mm-uu-type-alist): Don't test pgp stuff.
(mm-uu-pgp-encrypted-extract): Clean mml2015 buffer.
+ (mm-uu-pgp-signed-extract): Use coding-system.
2000-11-07 14:33:19 ShengHuo ZHU <zsh@cs.rochester.edu>
2000-11-07 14:33:19 ShengHuo ZHU <zsh@cs.rochester.edu>
diff --git
a/lisp/mm-uu.el
b/lisp/mm-uu.el
index
a11f419
..
9e9c37f
100644
(file)
--- a/
lisp/mm-uu.el
+++ b/
lisp/mm-uu.el
@@
-264,7
+264,9
@@
To disable dissecting shar codes, for instance, add
(with-current-buffer buf
(when (mm-uu-pgp-signed-test)
(mml2015-clean-buffer)
(with-current-buffer buf
(when (mm-uu-pgp-signed-test)
(mml2015-clean-buffer)
- (funcall (mml2015-clear-verify-function)))
+ (let ((coding-system-for-write (or gnus-newsgroup-charset
+ 'iso-8859-1)))
+ (funcall (mml2015-clear-verify-function))))
(goto-char (point-min))
(if (search-forward "\n\n" nil t)
(delete-region (point-min) (point)))
(goto-char (point-min))
(if (search-forward "\n\n" nil t)
(delete-region (point-min) (point)))