Commit 2c8bcd54 authored by Lars Magne Ingebrigtsen's avatar Lars Magne Ingebrigtsen Committed by Katsumi Yamaoka
Browse files

nnmh.el (nnmh-request-list-1): Output active lines also for empty directories....

nnmh.el (nnmh-request-list-1): Output active lines also for empty directories.  This makes the draft queue directory work.
parent 8c3e17f8
2010-09-04 Lars Magne Ingebrigtsen <larsi@gnus.org>
* nnmh.el (nnmh-request-list-1): Output active lines also for empty
directories. This makes the draft queue directory work.
* gnus-start.el (gnus-get-unread-articles): Rewrite the way we request
data from the backends, so that we only request the list of groups from
each method once. This should speed things up considerably.
......
......@@ -230,25 +230,25 @@ as unread by Gnus.")
(nnmh-request-list-1 rdir))))
;; For each directory, generate an active file line.
(unless (string= (expand-file-name nnmh-toplev) dir)
(when min
(with-current-buffer nntp-server-buffer
(goto-char (point-max))
(insert
(format
"%s %.0f %.0f y\n"
(progn
(string-match
(regexp-quote
(file-truename (file-name-as-directory
(expand-file-name nnmh-toplev))))
dir)
(mm-string-to-multibyte ;Why? Isn't it multibyte already?
(mm-encode-coding-string
(nnheader-replace-chars-in-string
(substring dir (match-end 0))
?/ ?.)
nnmail-pathname-coding-system)))
max min))))))
(with-current-buffer nntp-server-buffer
(goto-char (point-max))
(insert
(format
"%s %.0f %.0f y\n"
(progn
(string-match
(regexp-quote
(file-truename (file-name-as-directory
(expand-file-name nnmh-toplev))))
dir)
(mm-string-to-multibyte ;Why? Isn't it multibyte already?
(mm-encode-coding-string
(nnheader-replace-chars-in-string
(substring dir (match-end 0))
?/ ?.)
nnmail-pathname-coding-system)))
(or max 0)
(or min 0))))))
t)
(deffoo nnmh-request-newgroups (date &optional server)
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment