diff options
| author | John Wiegley <johnw@newartisans.com> | 2015-12-29 21:39:08 -0800 |
|---|---|---|
| committer | John Wiegley <johnw@newartisans.com> | 2015-12-29 21:39:08 -0800 |
| commit | ec0a80cc283badc7f7fd5ef78512dde6d34b1355 (patch) | |
| tree | 7190e0fb3d4aa06018d8cf997f06b806fb09a9c8 /lisp/gnus/nnml.el | |
| parent | d259328fb87db8cc67d52771efcfa653e52c5b71 (diff) | |
| parent | e823c34072bf045800d91e12c7ddb61fa23c6e30 (diff) | |
| download | emacs-25-merge.tar.gz | |
Merge emacs-25 into master (using imerge)emacs-25-merge
Diffstat (limited to 'lisp/gnus/nnml.el')
| -rw-r--r-- | lisp/gnus/nnml.el | 17 |
1 files changed, 0 insertions, 17 deletions
diff --git a/lisp/gnus/nnml.el b/lisp/gnus/nnml.el index 33eae1c166e..a2947c0a992 100644 --- a/lisp/gnus/nnml.el +++ b/lisp/gnus/nnml.el @@ -268,23 +268,6 @@ non-nil.") (max (1+ (- (cdr active) (car active))) 0) (car active) (cdr active) group))))))) -(deffoo nnml-retrieve-groups (groups &optional server) - (when nnml-get-new-mail - (if (nnmail-get-new-mail-per-group) - (dolist (group groups) - (nnml-request-scan group server)) - (nnml-request-scan nil server))) - (with-current-buffer nntp-server-buffer - (erase-buffer) - (dolist (group groups) - (let* ((entry (assoc group nnml-group-alist)) - (active (nth 1 entry))) - (if (consp active) - (insert (format "211 %d %d %d %s\n" - (max (1+ (- (cdr active) (car active))) 0) - (car active) (cdr active) group)))))) - 'group) - (deffoo nnml-request-scan (&optional group server) (setq nnml-article-file-alist nil) (nnml-possibly-change-directory group server) |