Mercurial > emacs
changeset 110190:896692b6eb7b
nnmh.el (nnmh-request-list-1): Output active lines also for empty directories. This makes the draft queue directory work.
| author | Katsumi Yamaoka <yamaoka@jpl.org> |
|---|---|
| date | Sun, 05 Sep 2010 00:38:39 +0000 |
| parents | 821c596efa5f |
| children | 1e69e141b6a0 |
| files | lisp/gnus/ChangeLog lisp/gnus/nnmh.el |
| diffstat | 2 files changed, 22 insertions(+), 19 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/gnus/ChangeLog Sun Sep 05 00:34:16 2010 +0000 +++ b/lisp/gnus/ChangeLog Sun Sep 05 00:38:39 2010 +0000 @@ -1,5 +1,8 @@ 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.
--- a/lisp/gnus/nnmh.el Sun Sep 05 00:34:16 2010 +0000 +++ b/lisp/gnus/nnmh.el Sun Sep 05 00:38:39 2010 +0000 @@ -230,25 +230,25 @@ (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)