2012-08-06 Julien Danjou <julien@danjou.info>
+ * nnimap.el (nnimap-request-article): Remove to-buffer argument.
+
+ * gnus-int.el (gnus-request-head): Remove to-buffer argument, only
+ supported by nnimap actually. Reverts previous change.
+
* gnus-int.el (gnus-request-head): Add an optional to-buffer parameter
to mimic `gnus-request-article' and enjoy backends the nn*-request-head
to-buffer argument that is already supported.
(and (bound-and-true-p gnus-registry-enabled)
(gnus-try-warping-via-registry))))))
-(defun gnus-request-head (article group &optional to-buffer)
- "Request the head of ARTICLE in GROUP.
-If TO-BUFFER, insert the article in that buffer."
+(defun gnus-request-head (article group)
+ "Request the head of ARTICLE in GROUP."
(let* ((gnus-command-method (gnus-find-method-for-group group))
(head (gnus-get-function gnus-command-method 'request-head t))
res clean-up)
;; Use `head' function.
((fboundp head)
(setq res (funcall head article (gnus-group-real-name group)
- (nth 1 gnus-command-method)
- to-buffer)))
+ (nth 1 gnus-command-method))))
;; Use `article' function.
(t
- (setq res (gnus-request-article article group to-buffer)
+ (setq res (gnus-request-article article group)
clean-up t)))
(when clean-up
- (with-current-buffer (or to-buffer
- nntp-server-buffer)
+ (with-current-buffer nntp-server-buffer
(goto-char (point-min))
(when (search-forward "\n\n" nil t)
(delete-region (1- (point)) (point-max)))
(nnheader-ms-strip-cr)))
(cons group article)))))))
-(deffoo nnimap-request-head (article &optional group server to-buffer)
+(deffoo nnimap-request-head (article &optional group server)
(when group
(setq group (nnimap-decode-gnus-group group)))
(when (nnimap-change-group group server)
article (format "UID FETCH %%d %s"
(nnimap-header-parameters)))
(let ((buffer (current-buffer)))
- (with-current-buffer (or to-buffer nntp-server-buffer)
+ (with-current-buffer nntp-server-buffer
(erase-buffer)
(insert-buffer-substring buffer)
(nnheader-ms-strip-cr)