(nnmairix-current-server): Defvar them.
(nnmairix-goto-original-article): Defvar gnus-registry-install and autoload
gnus-registry-fetch-group when compiling.
(nnmairix-request-group-with-article-number-correction): remove unreferenced
argument passed to nnmairix-call-backend;
express real group name in the response.
+2008-02-27 David Engster <dengste@eml.cc>
+
+ * nnmairix.el (nnmairix-request-group-with-article-number-correction):
+ Express real group name in the response.
+
+2008-02-27 Katsumi Yamaoka <yamaoka@jpl.org>
+
+ * nnmairix.el (nnmairix-group-regexp, nnmairix-valid-backends)
+ (nnmairix-last-server, nnmairix-current-server): Defvar them.
+ (nnmairix-goto-original-article): Defvar gnus-registry-install and
+ autoload gnus-registry-fetch-group when compiling.
+ (nnmairix-request-group-with-article-number-correction): remove
+ unreferenced argument passed to nnmairix-call-backend.
+
2008-02-27 Reiner Steib <Reiner.Steib@gmx.de>
* mm-uu.el (mm-uu-type-alist): Fix message-marks non-hide arguments.
2008-02-27 Reiner Steib <Reiner.Steib@gmx.de>
* mm-uu.el (mm-uu-type-alist): Fix message-marks non-hide arguments.
;;; === Internal variables
;;; === Internal variables
-;; Regexp for mairix groups on back end
-(setq nnmairix-group-regexp (format "%s-\\(.*\\)-[0-9]+" nnmairix-group-prefix))
+(defvar nnmairix-group-regexp
+ (format "%s-\\(.*\\)-[0-9]+" nnmairix-group-prefix)
+ "Regexp for mairix groups on back end.")
-;; Back ends (hopefully...) supported by nnmairix.
-;; Other backends might or might not work.
-(setq nnmairix-valid-backends '(nnimap nnml nnmaildir))
+(defvar nnmairix-valid-backends '(nnimap nnml nnmaildir)
+ "Back ends (hopefully...) supported by nnmairix.
+Other backends might or might not work.")
-;; Last chosen server
-(setq nnmairix-last-server nil)
+(defvar nnmairix-last-server nil
+ "Last chosen server.")
-;; Current server
-(setq nnmairix-current-server nil)
+(defvar nnmairix-current-server nil
+ "Current server.")
;;; === Gnus backend functions
;;; === Gnus backend functions
(set-process-sentinel (apply 'start-process args)
'nnmairix-sentinel-mairix-update-finished))))))
(set-process-sentinel (apply 'start-process args)
'nnmairix-sentinel-mairix-update-finished))))))
+;; Silence byte-compiler.
+(eval-when-compile
+ (defvar gnus-registry-install)
+ (autoload 'gnus-registry-fetch-group "gnus-registry"))
+
(defun nnmairix-goto-original-article (&optional no-registry)
"Jump to the original group and display article.
The original group of the article is first determined with the
(defun nnmairix-goto-original-article (&optional no-registry)
"Jump to the original group and display article.
The original group of the article is first determined with the
"Request FOLDER on backend for nnmairix QUALGROUP and article number correction."
(save-excursion
(nnmairix-call-backend
"Request FOLDER on backend for nnmairix QUALGROUP and article number correction."
(save-excursion
(nnmairix-call-backend
- "request-group" folder nnmairix-backend-server fast)
+ "request-group" folder nnmairix-backend-server)
(set-buffer nnmairix-mairix-output-buffer)
(goto-char (point-min))
(re-search-forward "^Matched.*messages")
(set-buffer nnmairix-mairix-output-buffer)
(goto-char (point-min))
(re-search-forward "^Matched.*messages")
(gnus-group-set-parameter
qualgroup 'numcorr (list nil 0 high))))
(erase-buffer)
(gnus-group-set-parameter
qualgroup 'numcorr (list nil 0 high))))
(erase-buffer)
- (insert (format "%d %d %d %d %s" status total low high group))
+ (insert (format "%d %d %d %d %s" status total low high
+ (gnus-group-real-name qualgroup)))
t)
(progn
(nnheader-report
t)
(progn
(nnheader-report