/[emacs]/emacs/lisp/gnus/nnagent.el
ViewVC logotype

Diff of /emacs/lisp/gnus/nnagent.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.3.6.2 by miles, Thu Sep 9 09:36:26 2004 UTC revision 1.3.6.3 by miles, Fri Oct 22 10:13:32 2004 UTC
# Line 103  Line 103 
103    
104  (defun nnagent-request-type (group article)  (defun nnagent-request-type (group article)
105    (unless (stringp article)    (unless (stringp article)
106      (let ((gnus-plugged t))      (let ((gnus-agent nil))
107        (if (not (gnus-check-backend-function        (if (not (gnus-check-backend-function
108                  'request-type (car gnus-command-method)))                  'request-type (car gnus-command-method)))
109            'unknown            'unknown
# Line 122  Line 122 
122    
123  (deffoo nnagent-request-set-mark (group action server)  (deffoo nnagent-request-set-mark (group action server)
124    (with-temp-buffer    (with-temp-buffer
125      (insert (format "(%s-request-set-mark \"%s\" '%s \"%s\")\n"      (insert "(gnus-agent-synchronize-group-flags \""
126                      (nth 0 gnus-command-method) group action              group
127                      (or server (nth 1 gnus-command-method))))              "\" '")
128        (gnus-pp action)
129        (insert " \""
130                (gnus-method-to-server gnus-command-method)
131                "\"")
132        (insert ")\n")
133      (append-to-file (point-min) (point-max) (gnus-agent-lib-file "flags")))      (append-to-file (point-min) (point-max) (gnus-agent-lib-file "flags")))
134    nil)    nil)
135    

Legend:
Removed from v.1.3.6.2  
changed lines
  Added in v.1.3.6.3

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26