From: tsuchiya Date: Mon, 10 Dec 2001 09:11:21 +0000 (+0000) Subject: (gnus-namazu-summary-buffer-name): Changed X-Git-Tag: t-gnus-6_15_3-06-last-~2 X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=ff13fdd54974932dc7d1baebee0c572febcff1b6;p=elisp%2Fgnus.git- (gnus-namazu-summary-buffer-name): Changed the expression to decide whether `gnus-summary-buffer-name' should be advised. (gnus-namazu/setup): Strict checking the other Gnus variants than Oort-Gnus before handling `gnus-group-name-charset-group-alist'. --- diff --git a/ChangeLog b/ChangeLog index ff72bf6..938a0f0 100644 --- a/ChangeLog +++ b/ChangeLog @@ -1,8 +1,16 @@ +2001-12-10 TSUCHIYA Masatoshi + + * lisp/gnus-namazu.el (gnus-namazu-summary-buffer-name): Changed + the expression to decide whether `gnus-summary-buffer-name' should + be advised. + (gnus-namazu/setup): Strict checking the other Gnus variants than + Oort-Gnus before handling `gnus-group-name-charset-group-alist'. + 2001-12-09 TSUCHIYA Masatoshi * lisp/gnus-namazu.el (gnus-namazu-summary-buffer-name): New advice. - + * lisp/gnus.el (top): Add autoload of `gnus-namazu-search'. * lisp/gnus-sum.el (gnus-summary-mode-map): Define "\C-c\C-n" as diff --git a/lisp/gnus-namazu.el b/lisp/gnus-namazu.el index 37fdd86..e0e3eb8 100644 --- a/lisp/gnus-namazu.el +++ b/lisp/gnus-namazu.el @@ -149,20 +149,18 @@ options make any sense in this context." (defconst gnus-namazu/group-name-regexp "\\`nnvirtual:namazu-search\\?") ;; Multibyte group name: -(add-to-list 'gnus-group-name-charset-group-alist - (cons gnus-namazu/group-name-regexp gnus-namazu-coding-system)) (and (fboundp 'gnus-group-decoded-name) - (let ((group - (concat "nnvirtual:namazu-search?query=" - (decode-coding-string - (string 27 36 66 52 65 59 122 27 40 66) - (if (boundp 'MULE) '*iso-2022-jp* 'iso-2022-7bit))))) - (/= (length (string-to-char-list (concat "*Summary " group "*"))) - (length - (string-to-char-list - (gnus-summary-buffer-name - (encode-coding-string group gnus-namazu-coding-system)))))) + (let ((gnus-group-name-charset-group-alist + (list (cons gnus-namazu/group-name-regexp gnus-namazu-coding-system))) + (query (decode-coding-string + (string 27 36 66 52 65 59 122 27 40 66) + (if (boundp 'MULE) '*iso-2022-jp* 'iso-2022-7bit)))) + (not (string-match query + (gnus-summary-buffer-name + (encode-coding-string + (concat "nnvirtual:namazu-search?query=" query) + gnus-namazu-coding-system))))) (let (current-load-list) (defadvice gnus-summary-buffer-name (before gnus-namazu-summary-buffer-name activate compile) @@ -181,6 +179,17 @@ options make any sense in this context." (gnus-servers-using-backend 'nnmh))) (defun gnus-namazu/setup () + (and (boundp 'gnus-group-name-charset-group-alist) + (not (member (cons gnus-namazu/group-name-regexp + gnus-namazu-coding-system) + gnus-group-name-charset-group-alist)) + (let ((pair (assoc gnus-namazu/group-name-regexp + gnus-group-name-charset-group-alist))) + (if pair + (setcdr pair gnus-namazu-coding-system) + (push (cons gnus-namazu/group-name-regexp + gnus-namazu-coding-system) + gnus-group-name-charset-group-alist)))) (unless gnus-namazu-case-sensitive-filesystem ;; FIXME: The alist to map group names in lower case to real names ;; is reconstructed every when gnus-namazu/setup() is called.