diff options
| author | Lars Ingebrigtsen | 2011-01-28 02:07:48 +0000 |
|---|---|---|
| committer | Katsumi Yamaoka | 2011-01-28 02:07:48 +0000 |
| commit | 9da02ea1b0368a635d357a7e5a9a2e8c422beaa4 (patch) | |
| tree | d3956dbfe6de322050d955bb1638212340d736a3 | |
| parent | 007751efe42a6279f18b0f8d0e6eef16ecdb4cef (diff) | |
| download | emacs-9da02ea1b0368a635d357a7e5a9a2e8c422beaa4.tar.gz emacs-9da02ea1b0368a635d357a7e5a9a2e8c422beaa4.zip | |
gnus-int.el (gnus-request-marks): Call *-request-marks instead of the older request-update-info.
| -rw-r--r-- | lisp/gnus/ChangeLog | 3 | ||||
| -rw-r--r-- | lisp/gnus/gnus-int.el | 3 |
2 files changed, 4 insertions, 2 deletions
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 @@ | |||
| 1 | 2011-01-28 Lars Ingebrigtsen <larsi@gnus.org> | 1 | 2011-01-28 Lars Ingebrigtsen <larsi@gnus.org> |
| 2 | 2 | ||
| 3 | * gnus-int.el (gnus-request-marks): Call *-request-marks instead of the | ||
| 4 | older request-update-info. | ||
| 5 | |||
| 3 | * gnus-art.el (article-make-date-line): Limit the length a bit more. | 6 | * gnus-art.el (article-make-date-line): Limit the length a bit more. |
| 4 | 7 | ||
| 5 | 2011-01-28 Daiki Ueno <ueno@unixuser.org> | 8 | 2011-01-28 Daiki Ueno <ueno@unixuser.org> |
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." | |||
| 638 | (when (gnus-check-backend-function | 638 | (when (gnus-check-backend-function |
| 639 | 'request-marks (car gnus-command-method)) | 639 | 'request-marks (car gnus-command-method)) |
| 640 | (let ((group (gnus-info-group info))) | 640 | (let ((group (gnus-info-group info))) |
| 641 | (and (funcall (gnus-get-function gnus-command-method | 641 | (and (funcall (gnus-get-function gnus-command-method 'request-marks) |
| 642 | 'request-update-info) | ||
| 643 | (gnus-group-real-name group) | 642 | (gnus-group-real-name group) |
| 644 | info (nth 1 gnus-command-method)) | 643 | info (nth 1 gnus-command-method)) |
| 645 | ;; If the minimum article number is greater than 1, then all | 644 | ;; If the minimum article number is greater than 1, then all |