[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] Changes to emacs/lisp/gnus/nnagent.el [emacs-unicode-2]
From: |
Miles Bader |
Subject: |
[Emacs-diffs] Changes to emacs/lisp/gnus/nnagent.el [emacs-unicode-2] |
Date: |
Fri, 22 Oct 2004 06:42:35 -0400 |
Index: emacs/lisp/gnus/nnagent.el
diff -c emacs/lisp/gnus/nnagent.el:1.3.6.2 emacs/lisp/gnus/nnagent.el:1.3.6.3
*** emacs/lisp/gnus/nnagent.el:1.3.6.2 Thu Sep 9 09:36:26 2004
--- emacs/lisp/gnus/nnagent.el Fri Oct 22 10:13:32 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)
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Emacs-diffs] Changes to emacs/lisp/gnus/nnagent.el [emacs-unicode-2],
Miles Bader <=