[Emacs-diffs] Changes to emacs/lisp/gnus/nnagent.el [lexbind]

[Miles Bader]

Index: emacs/lisp/gnus/nnagent.el
diff -c emacs/lisp/gnus/nnagent.el:1.2.18.3 emacs/lisp/gnus/nnagent.el:1.2.18.4
*** emacs/lisp/gnus/nnagent.el:1.2.18.3 Thu Sep 16 00:12:16 2004
--- emacs/lisp/gnus/nnagent.el  Mon Oct 25 04:22:24 2004
***************
*** 103,109 ****
  
  (defun nnagent-request-type (group article)
    (unless (stringp article)
!     (let ((gnus-plugged t))
        (if (not (gnus-check-backend-function
                'request-type (car gnus-command-method)))
          'unknown
--- 103,109 ----
  
  (defun nnagent-request-type (group article)
    (unless (stringp article)
!     (let ((gnus-agent nil))
        (if (not (gnus-check-backend-function
                'request-type (car gnus-command-method)))
          'unknown
***************
*** 122,130 ****
  
  (deffoo nnagent-request-set-mark (group action server)
    (with-temp-buffer
!     (insert (format "(%s-request-set-mark \"%s\" '%s \"%s\")\n"
!                   (nth 0 gnus-command-method) group action
!                   (or server (nth 1 gnus-command-method))))
      (append-to-file (point-min) (point-max) (gnus-agent-lib-file "flags")))
    nil)
  
--- 122,135 ----
  
  (deffoo nnagent-request-set-mark (group action server)
    (with-temp-buffer
!     (insert "(gnus-agent-synchronize-group-flags \""
!           group 
!           "\" '")
!     (gnus-pp action)
!     (insert " \""
!           (gnus-method-to-server gnus-command-method)
!           "\"")
!     (insert ")\n")
      (append-to-file (point-min) (point-max) (gnus-agent-lib-file "flags")))
    nil)