summaryrefslogtreecommitdiff
path: root/lisp/gnus/nnmh.el
diff options
context:
space:
mode:
authorLars Magne Ingebrigtsen <larsi@gnus.org>1997-09-24 01:50:24 +0000
committerLars Magne Ingebrigtsen <larsi@gnus.org>1997-09-24 01:50:24 +0000
commita8151ef7e5caf46b41fc52f8189b07d1fa6c184e (patch)
tree8eb82a1990da4afe2e247c1397e42a20128f0568 /lisp/gnus/nnmh.el
parent5f016f400343a57d641642ce114f90d3a15082e1 (diff)
downloademacs-a8151ef7e5caf46b41fc52f8189b07d1fa6c184e.tar.gz
emacs-a8151ef7e5caf46b41fc52f8189b07d1fa6c184e.tar.bz2
emacs-a8151ef7e5caf46b41fc52f8189b07d1fa6c184e.zip
*** empty log message ***
Diffstat (limited to 'lisp/gnus/nnmh.el')
-rw-r--r--lisp/gnus/nnmh.el6
1 files changed, 2 insertions, 4 deletions
diff --git a/lisp/gnus/nnmh.el b/lisp/gnus/nnmh.el
index f1938586141..48c0ea2e139 100644
--- a/lisp/gnus/nnmh.el
+++ b/lisp/gnus/nnmh.el
@@ -190,11 +190,9 @@
(deffoo nnmh-request-list (&optional server dir)
(nnheader-insert "")
- (let (;; 1997/8/14 by MORIOKA Tomohiko
- ;; for XEmacs/mule.
- (pathname-coding-system 'binary)
+ (let ((pathname-coding-system 'binary)
(nnmh-toplev
- (or dir (file-truename (file-name-as-directory nnmh-directory)))))
+ (file-truename (or dir (file-name-as-directory nnmh-directory)))))
(nnmh-request-list-1 nnmh-toplev))
(setq nnmh-group-alist (nnmail-get-active))
t)