projects
/
gnus
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
1b648d2
)
* gnus-int.el (gnus-request-set-mark, gnus-request-update-mark): Fixed my last patch.
author
Kevin Greiner
<kevin.greiner@compsol.cc>
Thu, 23 Sep 2004 00:46:09 +0000
(
00:46
+0000)
committer
Kevin Greiner
<kevin.greiner@compsol.cc>
Thu, 23 Sep 2004 00:46:09 +0000
(
00:46
+0000)
lisp/gnus-int.el
patch
|
blob
|
history
diff --git
a/lisp/gnus-int.el
b/lisp/gnus-int.el
index
80ec756
..
db2b5bf
100644
(file)
--- a/
lisp/gnus-int.el
+++ b/
lisp/gnus-int.el
@@
-421,9
+421,10
@@
If FETCH-OLD, retrieve all headers (or some subset thereof) in the group."
(defun gnus-request-set-mark (group action)
"Set marks on articles in the back end."
(let* ((gnus-command-method (gnus-find-method-for-group group))
(defun gnus-request-set-mark (group action)
"Set marks on articles in the back end."
(let* ((gnus-command-method (gnus-find-method-for-group group))
- (gnus-plugged (or gnus-plugged
- (member (car gnus-command-method)
- gnus-servers-that-use-local-marks))))
+ (gnus-agent (if (member (car gnus-command-method)
+ gnus-servers-that-use-local-marks)
+ nil
+ gnus-agent)))
(if (not (gnus-check-backend-function
'request-set-mark (car gnus-command-method)))
action
(if (not (gnus-check-backend-function
'request-set-mark (car gnus-command-method)))
action
@@
-434,9
+435,10
@@
If FETCH-OLD, retrieve all headers (or some subset thereof) in the group."
(defun gnus-request-update-mark (group article mark)
"Allow the back end to change the mark the user tries to put on an article."
(let* ((gnus-command-method (gnus-find-method-for-group group))
(defun gnus-request-update-mark (group article mark)
"Allow the back end to change the mark the user tries to put on an article."
(let* ((gnus-command-method (gnus-find-method-for-group group))
- (gnus-plugged (or gnus-plugged
- (member (car gnus-command-method)
- gnus-servers-that-use-local-marks))))
+ (gnus-agent (if (member (car gnus-command-method)
+ gnus-servers-that-use-local-marks)
+ nil
+ gnus-agent)))
(if (not (gnus-check-backend-function
'request-update-mark (car gnus-command-method)))
mark
(if (not (gnus-check-backend-function
'request-update-mark (car gnus-command-method)))
mark