From: Lars Ingebrigtsen Date: Fri, 28 Jan 2011 02:07:48 +0000 (+0000) Subject: gnus-int.el (gnus-request-marks): Call *-request-marks instead of the older request... X-Git-Tag: emacs-pretest-24.0.90~104^2~618^2~1322^2~101 X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=9da02ea1b0368a635d357a7e5a9a2e8c422beaa4;p=emacs.git gnus-int.el (gnus-request-marks): Call *-request-marks instead of the older request-update-info. --- diff --git a/lisp/gnus/ChangeLog b/lisp/gnus/ChangeLog index 29939cc165a..36175a174b6 100644 --- a/lisp/gnus/ChangeLog +++ b/lisp/gnus/ChangeLog @@ -1,5 +1,8 @@ 2011-01-28 Lars Ingebrigtsen + * gnus-int.el (gnus-request-marks): Call *-request-marks instead of the + older request-update-info. + * gnus-art.el (article-make-date-line): Limit the length a bit more. 2011-01-28 Daiki Ueno diff --git a/lisp/gnus/gnus-int.el b/lisp/gnus/gnus-int.el index 9f69536122a..a67063bb970 100644 --- a/lisp/gnus/gnus-int.el +++ b/lisp/gnus/gnus-int.el @@ -638,8 +638,7 @@ If GROUP is nil, all groups on GNUS-COMMAND-METHOD are scanned." (when (gnus-check-backend-function 'request-marks (car gnus-command-method)) (let ((group (gnus-info-group info))) - (and (funcall (gnus-get-function gnus-command-method - 'request-update-info) + (and (funcall (gnus-get-function gnus-command-method 'request-marks) (gnus-group-real-name group) info (nth 1 gnus-command-method)) ;; If the minimum article number is greater than 1, then all