procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

(nnml-possibly-change-directory): Likewise

Browse source 
(nnml-retrieve-headers, nnml-request-article,
nnml-request-group, nnml-request-list): Likewise
This commit is contained in:
Kenichi Handa 1997-08-28 04:51:02 +00:00
parent 7fb884d953
commit d49d7823f8
1 changed files with 40 additions and 23 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

21
lisp/gnus/nnml.el
View file

@ -98,6 +98,9 @@ all. This may very well take some time.")
(let ((file nil) (let ((file nil)
(number (length sequence)) (number (length sequence))
(count 0) (count 0)
;; 1997/8/12 by MORIOKA Tomohiko
;; for XEmacs/mule.
(pathname-coding-system 'binary)
beg article) beg article)
(if (stringp (car sequence)) (if (stringp (car sequence))
'headers 'headers
@ -160,6 +163,9 @@ all. This may very well take some time.")
(deffoo nnml-request-article (id &optional group server buffer) (deffoo nnml-request-article (id &optional group server buffer)
(nnml-possibly-change-directory group server) (nnml-possibly-change-directory group server)
(let* ((nntp-server-buffer (or buffer nntp-server-buffer)) (let* ((nntp-server-buffer (or buffer nntp-server-buffer))
;; 1997/8/12 by MORIOKA Tomohiko
;; for XEmacs/mule.
(pathname-coding-system 'binary)
path gpath group-num) path gpath group-num)
(if (stringp id) (if (stringp id)
(when (and (setq group-num (nnml-find-group-number id)) (when (and (setq group-num (nnml-find-group-number id))
@ -188,6 +194,9 @@ all. This may very well take some time.")
(string-to-int (file-name-nondirectory path))))))) (string-to-int (file-name-nondirectory path)))))))
(deffoo nnml-request-group (group &optional server dont-check) (deffoo nnml-request-group (group &optional server dont-check)
;; 1997/8/12 by MORIOKA Tomohiko
;; for XEmacs/mule.
(let ((pathname-coding-system 'binary))
(cond (cond
((not (nnml-possibly-change-directory group server)) ((not (nnml-possibly-change-directory group server))
(nnheader-report 'nnml "Invalid group (no such directory)")) (nnheader-report 'nnml "Invalid group (no such directory)"))
@ -208,7 +217,7 @@ all. This may very well take some time.")
(nnheader-report 'nnml "Selected group %s" group) (nnheader-report 'nnml "Selected group %s" group)
(nnheader-insert "211 %d %d %d %s\n" (nnheader-insert "211 %d %d %d %s\n"
(max (1+ (- (cdr active) (car active))) 0) (max (1+ (- (cdr active) (car active))) 0)
(car active) (cdr active) group)))))) (car active) (cdr active) group)))))))
(deffoo nnml-request-scan (&optional group server) (deffoo nnml-request-scan (&optional group server)
(setq nnml-article-file-alist nil) (setq nnml-article-file-alist nil)
@ -236,7 +245,12 @@ all. This may very well take some time.")
(deffoo nnml-request-list (&optional server) (deffoo nnml-request-list (&optional server)
(save-excursion (save-excursion
;; 1997/8/12 by MORIOKA Tomohiko
;; for XEmacs/mule.
(let ((nnmail-file-coding-system nnmail-active-file-coding-system)
(pathname-coding-system 'binary)) ; for XEmacs/mule
(nnmail-find-file nnml-active-file) (nnmail-find-file nnml-active-file)
)
(setq nnml-group-alist (nnmail-get-active)) (setq nnml-group-alist (nnmail-get-active))
t)) t))
@ -540,7 +554,10 @@ all. This may very well take some time.")
(nnml-open-server server)) (nnml-open-server server))
(if (not group) (if (not group)
t t
(let ((pathname (nnmail-group-pathname group nnml-directory))) (let ((pathname (nnmail-group-pathname group nnml-directory))
;; 1997/8/14 by MORIOKA Tomohiko
;; for XEmacs/mule.
(pathname-coding-system 'binary))
(when (not (equal pathname nnml-current-directory)) (when (not (equal pathname nnml-current-directory))
(setq nnml-current-directory pathname (setq nnml-current-directory pathname
nnml-current-group group nnml-current-group group