+2003-02-07 Teodor Zlatanov <tzz@lifelogs.com>
+
+ * gnus-int.el (gnus-internal-registry-spool-current-method): new variable
+ (gnus-request-scan): set
+ gnus-internal-registry-spool-current-method to gnus-command-method
+ before a request-scan operation
+
+ * gnus-registry.el (regtest-nnmail): use
+ gnus-internal-registry-spool-current-method
+
+
+
2003-02-07 Lars Magne Ingebrigtsen <larsi@gnus.org>
* mail-source.el (mail-source-fetch): Typo fix.
(const :tag "Deny server" denied)
(const :tag "Unplugg Agent" offline)))
+(defvar gnus-internal-registry-spool-current-method nil
+ "The current method, for the registry.")
+
;;;
;;; Server Communication
;;;
(gnus-inhibit-demon t)
(mail-source-plugged gnus-plugged))
(if (or gnus-plugged (not (gnus-agent-method-p gnus-command-method)))
- (funcall (gnus-get-function gnus-command-method 'request-scan)
- (and group (gnus-group-real-name group))
- (nth 1 gnus-command-method)))))
+ (progn
+ (setq gnus-internal-registry-spool-current-method gnus-command-method)
+ (funcall (gnus-get-function gnus-command-method 'request-scan)
+ (and group (gnus-group-real-name group))
+ (nth 1 gnus-command-method))))))
(defsubst gnus-request-update-info (info gnus-command-method)
"Request that GNUS-COMMAND-METHOD update INFO."
(eval-when-compile (require 'cl))
(require 'gnus)
+(require 'gnus-int)
(require 'gnus-sum)
(require 'nnmail)
(defun regtest-nnmail (id group)
(message "Registry: article %s spooled to %s"
id
- (gnus-group-guess-full-name group)))
+ (gnus-group-prefixed-name group gnus-internal-registry-spool-current-method t)))
-(add-hook 'gnus-summary-article-move-hook 'regtest) ; also does copy, respool, and crosspost
-(add-hook 'gnus-summary-article-delete-hook 'regtest)
-(add-hook 'gnus-summary-article-expire-hook 'regtest)
+;;(add-hook 'gnus-summary-article-move-hook 'regtest) ; also does copy, respool, and crosspost
+;;(add-hook 'gnus-summary-article-delete-hook 'regtest)
+;;(add-hook 'gnus-summary-article-expire-hook 'regtest)
(add-hook 'nnmail-spool-hook 'regtest-nnmail)
;; TODO: