projects
/
elisp
/
gnus.git-
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
dfdd20e
)
Synch to No Gnus 200409220305.
author
yamaoka
<yamaoka>
Wed, 22 Sep 2004 03:09:23 +0000
(
03:09
+0000)
committer
yamaoka
<yamaoka>
Wed, 22 Sep 2004 03:09:23 +0000
(
03:09
+0000)
lisp/ChangeLog
patch
|
blob
|
history
lisp/gnus-int.el
patch
|
blob
|
history
diff --git
a/lisp/ChangeLog
b/lisp/ChangeLog
index
9713649
..
b24f86e
100644
(file)
--- a/
lisp/ChangeLog
+++ b/
lisp/ChangeLog
@@
-1,3
+1,9
@@
+2004-09-21 Kevin Greiner <kgreiner@compsol.cc>
+
+ * gnus-int.el (gnus-servers-that-use-local-marks): New variable.
+ (gnus-request-set-mark, gnus-request-update-mark): Use new
+ g-s-t-u-l-m to decide to use backend even when unplugged.
+
2004-09-21 Katsumi Yamaoka <yamaoka@jpl.org>
* gnus-msg.el (gnus-inews-make-draft-meta-information): Don't add
2004-09-21 Katsumi Yamaoka <yamaoka@jpl.org>
* gnus-msg.el (gnus-inews-make-draft-meta-information): Don't add
diff --git
a/lisp/gnus-int.el
b/lisp/gnus-int.el
index
1f8707d
..
ba24a00
100644
(file)
--- a/
lisp/gnus-int.el
+++ b/
lisp/gnus-int.el
@@
-54,6
+54,12
@@
server denied."
(const :tag "Deny server" denied)
(const :tag "Unplug Agent" offline)))
(const :tag "Deny server" denied)
(const :tag "Unplug Agent" offline)))
+(defcustom gnus-servers-that-use-local-marks '(nntp)
+ "A list of backends that store marks locally. This means that
+ the backend is used to set its marks even when unplugged."
+ :group 'gnus-start
+ :type '(repeat symbol))
+
(defvar gnus-internal-registry-spool-current-method nil
"The current method, for the registry.")
(defvar gnus-internal-registry-spool-current-method nil
"The current method, for the registry.")
@@
-414,7
+420,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."
(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)))
+ (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))))
(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
@@
-424,7
+433,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."
(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)))
+ (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))))
(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