\e$B$K$=$l$i$r%$%s%9%H!<%k$7$F$/$@$5$$!#\e(BSemi-gnus 6.10 \e$B$O\e(B APEL 9.13 \e$B0J>e!"\e(B
\e$B:G?7$N\e(B FLIM 1.12 \e$B$*$h$S\e(B SEMI 1.12 \e$B$rI,MW$H$7$^$9!#\e(B
\e$B$=$l$i$N%Q%C%1!<%8$O\e(B
-ftp://ftp.jaist.ac.jp/pub/elisp/semi/
+ftp://ftp.jaist.ac.jp/pub/GNU/elisp/semi/
\e$B$+$i<hF@$9$k$3$H$,$G$-$^$9!#I,MW$J4D6-$O\e(B SEMI \e$B$N\e(B README.ja \e$B$r;2>H$7$F\e(B
\e$B$/$@$5$$!#\e(B
(with-temp-buffer
(let ((standard-output (current-buffer)))
(Custom-make-dependencies "."))
- (message (buffer-string)))
+ (message (buffer-substring (point-min) (point-max))))
(require 'cus-load)
(byte-compile-file "custom-load.el")
;; select which header lines is to remain visible in the
;; article buffer.
(goto-char (point-min))
- (while (re-search-forward "^[^ \t]*:" nil t)
- (beginning-of-line)
+ (while (memq (char-after) '(?\t ?\ ))
+ (forward-line 1))
+ (while (not (eobp))
;; Mark the rank of the header.
(put-text-property
(point) (1+ (point)) 'message-rank
(not (looking-at ignored))))
(gnus-article-header-rank)
(+ 2 max)))
- (forward-line 1))
+ (forward-line 1)
+ (while (memq (char-after) '(?\t ?\ ))
+ (forward-line 1)))
(message-sort-headers-1)
(when (setq beg (text-property-any
(point-min) (point-max) 'message-rank (+ 2 max)))
(while (re-search-forward "^[^:]+:[ \t]*\n[^ \t]" nil t)
(forward-line -1)
(gnus-article-hide-text-type
- (progn (beginning-of-line) (point))
+ (point)
(progn
- (end-of-line)
- (if (re-search-forward "^[^ \t]" nil t)
- (match-beginning 0)
- (point-max)))
+ (while (and (zerop (forward-line 1))
+ (memq (char-after) '(?\t ?\ ))))
+ (point))
'boring-headers)))
;; Hide boring Newsgroups header.
((eq elem 'newsgroups)
(gnus-article-hide-text-type
(progn (beginning-of-line) (point))
(progn
- (end-of-line)
- (if (re-search-forward "^[^ \t]" nil t)
- (match-beginning 0)
- (point-max)))
+ (while (and (zerop (forward-line 1))
+ (memq (char-after) '(?\t ?\ ))))
+ (point))
'boring-headers))))
(defun article-treat-dumbquotes ()
(adaptive-fill-mode t))
(while (not (eobp))
(and (>= (current-column) (min fill-column (window-width)))
- (not (eq (char-before) ?:))
+ (not (eq (preceding-char) ?:))
(fill-paragraph nil))
(end-of-line 2))))))
"Exit the article editing without updating."
(interactive)
;; We remove all text props from the article buffer.
- (let ((buf (format "%s" (buffer-string)))
+ (let ((buf (format "%s" (buffer-substring (point-min) (point-max))))
(curbuf (current-buffer))
(p (point))
(window-start (window-start)))
(setq font-lock-defaults nil)
(font-lock-mode 0))
;; We remove all text props from the article buffer.
- (setq buf (format "%s" (buffer-string)))
+ (setq buf (format "%s" (buffer-substring (point-min) (point-max))))
(set-buffer (get-buffer-create gnus-original-article-buffer))
(erase-buffer)
(insert buf)
(when (and field-face
(not (memq (setq from (point)) fpoints)))
(push from fpoints)
- (if (re-search-forward "^[^ \t]" nil t)
- (forward-char -2)
- (goto-char (point-max)))
+ (while (and (zerop (forward-line 1))
+ (memq (char-after) '(?\t ?\ ))))
+ (unless (eobp)
+ ;; Go to the end of the previous line.
+ (end-of-line 0))
(gnus-put-text-property from (point) 'face field-face))))))))
(defun gnus-article-highlight-signature ()
(while (re-search-forward (car entry) nil t)
;; Each header matching the entry.
(setq beg (match-beginning 0))
- (setq end (or (and (re-search-forward "^[^ \t]" nil t)
- (match-beginning 0))
- (point-max)))
+ (while (and (zerop (forward-line 1))
+ (memq (char-after) '(?\t ?\ ))))
+ (setq end (point))
(goto-char beg)
(while (re-search-forward (nth 1 entry) end t)
;; Each match within a header.
(if (and gnus-current-kill-article
(get-buffer gnus-summary-buffer))
;; Assume newsgroup is selected.
- (gnus-kill-file-apply-string (buffer-string))
+ (gnus-kill-file-apply-string (buffer-substring (point-min) (point-max)))
(ding) (gnus-message 2 "No newsgroup is selected.")))
(defun gnus-kill-file-apply-string (string)
(set-buffer errbuf)
(if (zerop (buffer-size))
(message "Article saved in folder: %s" folder)
- (message "%s" (buffer-string)))
+ (message "%s" (buffer-substring (point-min) (point-max))))
(kill-buffer errbuf))))
(setq gnus-newsgroup-last-folder folder)))
(gnus-remove-text-with-property 'gnus-next)
(insert
(prog1
- (format "%s" (buffer-string))
+ (format "%s" (buffer-substring (point-min) (point-max)))
(erase-buffer)))
;; Find the original headers.
(set-buffer gnus-original-article-buffer)
nil 'quiet)
(prog1 (make-glyph (vector 'xbm :file fname))
(delete-file fname))))
- (t (make-glyph (vector type :data (buffer-string))))))
+ (t (make-glyph
+ (vector type :data
+ (buffer-substring (point-min) (point-max)))))))
;;; Parsing of piconsearch result page.
(push (vector (gnus-soup-field)
(gnus-soup-field)
(gnus-soup-field)
- (and (eq (char-before) ?\t)
+ (and (eq (preceding-char) ?\t)
(gnus-soup-field))
- (and (eq (char-before) ?\t)
+ (and (eq (preceding-char) ?\t)
(string-to-int (gnus-soup-field))))
areas)
- (when (eq (char-before) ?\t)
+ (when (eq (preceding-char) ?\t)
(beginning-of-line 2)))
(kill-buffer (current-buffer))))
areas))
(push (vector (gnus-soup-field) (gnus-soup-field)
(gnus-soup-field))
replies)
- (when (eq (char-before) ?\t)
+ (when (eq (preceding-char) ?\t)
(beginning-of-line 2)))
(kill-buffer (current-buffer)))
replies))
(push el flist)))
(insert elem-type)
(push (car elem) flist))))
- (setq fstring (buffer-string)))
+ (setq fstring (buffer-substring (point-min) (point-max))))
;; Do some postprocessing to increase efficiency.
(setq
(insert subject)
(let ((gnus-simplify-subject-fuzzy-regexp fuzzy-regexp))
(inline (gnus-simplify-buffer-fuzzy)))
- (buffer-string))))
+ (buffer-substring (point-min) (point-max)))))
(defsubst gnus-simplify-subject-fully (subject)
"Simplify a subject string according to gnus-summary-gather-subject-limit."
default-marks
no-expire-marks))
(to-article (cdr art-group)))
+
;; See whether the article is to be put in the cache.
(when gnus-use-cache
(gnus-cache-possibly-enter-article
;;;!!!Why is this necessary?
(set-buffer gnus-summary-buffer)
-
+
(gnus-summary-goto-subject article)
(when (eq action 'move)
(gnus-summary-mark-article article gnus-canceled-mark))))
(save-excursion
(save-restriction
(message-narrow-to-head)
- (let ((head (buffer-string))
+ (let ((head (buffer-substring (point-min) (point-max)))
header)
(nnheader-temp-write nil
(insert (format "211 %d Article retrieved.\n"
(let (gnus-mark-article-hook)
(gnus-summary-select-article t t nil current-article))
(set-buffer gnus-original-article-buffer)
- (let ((buf (format "%s" (buffer-string))))
+ (let ((buf (format "%s" (buffer-substring (point-min) (point-max)))))
(nnheader-temp-write nil
(insert buf)
(goto-char (point-min))
(if (re-search-forward "^References: " nil t)
(progn
(re-search-forward "^[^ \t]" nil t)
- (forward-line -1)
- (end-of-line)
+ (end-of-line 0) ;; Go to the end of the previous line.
(insert " " message-id))
(insert "References: " message-id "\n"))
(unless (gnus-request-replace-article
(goto-char (point-min))
(while (search-forward "%" nil t)
(insert "%"))
- (buffer-string)))
+ (buffer-substring (point-min) (point-max))))
;; Make a hash table (default and minimum size is 256).
;; Optional argument HASHSIZE specifies the table size.
;;; gnus-vm.el --- vm interface for Gnus
-;; Copyright (C) 1994,95,96,97,98 Free Software Foundation, Inc.
+;; Copyright (C) 1994,95,96,97,98,99 Free Software Foundation, Inc.
;; Author: Per Persson <pp@gnu.ai.mit.edu>
+;; Katsumi Yamaoka <yamaoka@jpl.org>
;; Keywords: news, mail
;; This file is part of GNU Emacs.
;;; Code:
-(require 'sendmail)
-(require 'message)
-(require 'gnus)
-(require 'gnus-msg)
+(require 'gnus-art)
(eval-when-compile
+ (require 'cl)
(autoload 'vm-mode "vm")
- (autoload 'vm-save-message "vm")
- (autoload 'vm-forward-message "vm")
- (autoload 'vm-reply "vm")
- (autoload 'vm-mail "vm"))
-
-(defvar gnus-vm-inhibit-window-system nil
- "Inhibit loading `win-vm' if using a window-system.
-Has to be set before gnus-vm is loaded.")
-
-(or gnus-vm-inhibit-window-system
- (condition-case nil
- (when window-system
- (require 'win-vm))
- (error nil)))
+ (autoload 'vm-read-file-name "vm")
+ (autoload 'vm-save-message "vm"))
(when (not (featurep 'vm))
(load "vm"))
+(defvar vm-folder-directory)
+(defvar vm-folder-history)
+(defvar vm-primary-inbox)
+(defvar vm-use-toolbar)
+
(defun gnus-vm-make-folder (&optional buffer)
(let ((article (or buffer (current-buffer)))
(tmp-folder (generate-new-buffer " *tmp-folder*"))
;; insert a newline, otherwise the last line gets lost
(goto-char (point-max))
(insert "\n")
- (vm-mode)
+ (let (mime-display-header-hook
+ mime-display-text/plain-hook mime-text-decode-hook
+ mime-view-define-keymap-hook mime-view-mode-hook)
+ (vm-mode))
tmp-folder))
-(defun gnus-summary-save-article-vm (&optional arg)
+(defvar gnus-summary-save-article-vm-folder nil)
+(defvar gnus-summary-save-article-vm-count nil)
+
+(defun gnus-summary-save-article-vm (&optional arg folder)
"Append the current article to a vm folder.
If N is a positive number, save the N next articles.
If N is a negative number, save the N previous articles.
If N is nil and any articles have been marked with the process mark,
save those articles instead."
- (interactive "P")
- (let ((gnus-default-article-saver 'gnus-summary-save-in-vm))
- (gnus-summary-save-article arg)))
+ (interactive
+ (let ((prefix-arg current-prefix-arg)
+ articles marks default-folder)
+ (setq default-folder (or (car vm-folder-history) vm-primary-inbox))
+ (if (numberp prefix-arg)
+ (setq articles prefix-arg)
+ (setq marks (delq nil (gnus-summary-work-articles nil))
+ articles (length marks)))
+ (list
+ prefix-arg
+ (unless (zerop articles)
+ (vm-read-file-name
+ (format
+ "Save %s in VM folder: "
+ (cond ((eq 1 articles)
+ (if (or (not marks) (eq gnus-current-article (car marks)))
+ "this article"
+ "the marked article"))
+ ((< 0 articles)
+ (if marks
+ (format "the marked %d articles" articles)
+ (format "the %d next articles" articles)))
+ ((> 0 articles)
+ (format "the %d previous articles" (- articles)))))
+ (if default-folder "" vm-folder-directory)
+ nil nil default-folder 'vm-folder-history)))))
+ (if (interactive-p)
+ (unless folder
+ (error "No articles to be saved"))
+ (unless (setq folder (or folder gnus-summary-save-article-vm-folder))
+ (error "No VM folder is specified")))
+ (unwind-protect
+ (progn
+ (setq gnus-summary-save-article-vm-folder folder
+ gnus-summary-save-article-vm-count 0)
+ (let ((gnus-default-article-saver 'gnus-summary-save-in-vm)
+ mime-display-header-hook mime-display-text/plain-hook
+ mime-text-decode-hook mime-view-define-keymap-hook
+ mime-view-mode-hook)
+ (gnus-summary-save-article arg))
+ (cond ((eq 1 gnus-summary-save-article-vm-count)
+ (message "One article is saved in %s" folder))
+ ((< 0 gnus-summary-save-article-vm-count)
+ (message "%d articles are saved in %s"
+ gnus-summary-save-article-vm-count folder))
+ (t
+ (message "Maybe no articles are saved in %s" folder))))
+ (setq gnus-summary-save-article-vm-folder nil
+ gnus-summary-save-article-vm-count nil)))
(defun gnus-summary-save-in-vm (&optional folder)
- (interactive)
- (setq folder
- (gnus-read-save-file-name
- "Save %s in VM folder:" folder
- gnus-mail-save-name gnus-newsgroup-name
- gnus-current-headers 'gnus-newsgroup-last-mail))
+ (interactive
+ (let (default-folder)
+ (setq default-folder (or (car vm-folder-history) vm-primary-inbox))
+ (list (vm-read-file-name "Save this article in VM folder: "
+ (if default-folder "" vm-folder-directory)
+ nil nil default-folder 'vm-folder-history))))
+ (unless (interactive-p)
+ (setq folder (or folder gnus-summary-save-article-vm-folder)))
+ (unless folder
+ (error "No VM folder is specified"))
+ (unless (interactive-p)
+ (message "Saving the article %d in %s..." gnus-current-article folder)
+ (when (numberp gnus-summary-save-article-vm-count)
+ (incf gnus-summary-save-article-vm-count)))
(save-window-excursion
- (gnus-summary-select-article gnus-show-all-headers)
+ (apply 'gnus-summary-select-article gnus-show-all-headers
+ (unless (interactive-p)
+ (list nil nil gnus-current-article)))
(gnus-eval-in-buffer-window gnus-original-article-buffer
(save-excursion
(save-restriction
(widen)
- (let ((vm-folder (gnus-vm-make-folder)))
+ (let* ((vm-use-toolbar nil)
+ (vm-folder (gnus-vm-make-folder)))
(vm-save-message folder)
+ (when (interactive-p)
+ (message "This article is saved in %s" folder))
(kill-buffer vm-folder)))))))
(provide 'gnus-vm)
(gnus-xmas-call-region "icontopbm")
(gnus-xmas-call-region "ppmtoxpm")
(make-glyph
- (vector 'xpm :data (buffer-string))))))
+ (vector 'xpm :data
+ (buffer-substring (point-min) (point-max)))))))
(t
(make-glyph [nothing]))))
(ext (make-extent (progn
(set-buffer (gnus-get-buffer-create " *gnus nntp*"))
(buffer-disable-undo (current-buffer))
(insert-file-contents gnus-nntpserver-file)
- (let ((name (buffer-string)))
+ (let ((name (buffer-substring (point-min) (point-max))))
(prog1
(if (string-match "^[ \t\n]*$" name)
nil
(if (<= (point-max) md5-maximum-internal-length)
(mapconcat
(function (lambda (node) (format "%02x" node)))
- (md5-encode (buffer-string))
+ (md5-encode (buffer-substring (point-min) (point-max)))
"")
(call-process-region (point-min) (point-max)
(or shell-file-name "/bin/sh")
;; There might be a continuation header, so we have to search
;; until we find a new non-continuation line.
(progn
- (forward-line 1)
- (if (re-search-forward "^[^ \t]" nil t)
- (goto-char (match-beginning 0))
- (point-max)))))
- (forward-line 1)
- (if (re-search-forward "^[^ \t]" nil t)
- (goto-char (match-beginning 0))
- (point-max))))
+ (while (and (zerop (forward-line 1))
+ (memq (char-after) '(?\t ?\ ))))
+ (point))))
+ (while (and (zerop (forward-line 1))
+ (memq (char-after) '(?\t ?\ ))))))
number))
(defun message-narrow-to-headers ()
(defun message-next-header ()
"Go to the beginning of the next header."
- (beginning-of-line)
- (or (eobp) (forward-char 1))
- (not (if (re-search-forward "^[^ \t]" nil t)
- (beginning-of-line)
- (goto-char (point-max)))))
+ (while (and (zerop (forward-line 1))
+ (memq (char-after) '(?\t ?\ ))))
+ (not (eobp)))
(defun message-sort-headers-1 ()
"Sort the buffer as headers using `message-rank' text props."
(message-remove-header message-ignored-mail-headers t))
(goto-char (point-max))
;; require one newline at the end.
- (or (eq (char-before) ?\n)
+ (or (bolp)
(insert ?\n))
(when (and news
(or (message-fetch-field "cc")
(re-search-forward
(concat "^" (regexp-quote mail-header-separator) "\n"))
(replace-match "\n")
- (backward-char 1)
+ (forward-char -1)
(setq delimline (point-marker))
(run-hooks 'message-send-mail-hook)
;; Insert an extra newline if we need it to work around
(re-search-forward
(concat "^" (regexp-quote mail-header-separator) "\n"))
(replace-match "\n")
- (backward-char 1)
+ (forward-char -1)
(run-hooks 'message-send-mail-hook)
(if recipients
(let ((result (smtp-via-smtp user-mail-address
(message-remove-header message-ignored-news-headers t))
(goto-char (point-max))
;; require one newline at the end.
- (or (eq (char-before) ?\n)
+ (or (bolp)
(insert ?\n))
(setq result (message-maybe-split-and-send-news method)))
(kill-buffer tembuf))
(re-search-forward
(concat "^" (regexp-quote mail-header-separator) "\n"))
(replace-match "\n")
- (backward-char 1)
+ (forward-char -1)
(run-hooks 'message-send-news-hook)
;;(require (car method))
;;(funcall (intern (format "%s-open-server" (car method)))
(while (re-search-forward "[\t\n]+" nil t)
(replace-match "" t t))
(unless (zerop (buffer-size))
- (buffer-string)))))
+ (buffer-substring (point-min) (point-max))))))
(defun message-make-lines ()
"Count the number of lines and return numeric string."
(replace-match "\\1(\\3)" t)
(goto-char fullname-start)))
(insert ")")))
- (buffer-string))))
+ (buffer-substring (point-min) (point-max)))))
(defun message-make-sender ()
"Return the \"real\" user address.
(while (re-search-forward "[ \t]+" nil t)
(replace-match " " t t))
;; Remove addresses that match `rmail-dont-reply-to-names'.
- (insert (prog1 (rmail-dont-reply-to (buffer-string))
+ (insert (prog1 (rmail-dont-reply-to (buffer-substring
+ (point-min) (point-max)))
(erase-buffer)))
(goto-char (point-min))
;; Perhaps Mail-Copies-To: never removed the only address?
(mapcar
(lambda (addr)
(cons (mail-strip-quoted-names addr) addr))
- (message-tokenize-header (buffer-string))))
+ (message-tokenize-header (buffer-substring
+ (point-min) (point-max)))))
(let ((s ccalist))
(while s
(setq ccalist (delq (assoc (car (pop s)) s) ccalist))))
(while (re-search-backward "[ \t]+$" nil t)
(replace-match ""))
- (buffer-string)))
+ (buffer-substring (point-min) (point-max))))
;;; Forwarding messages.
(nntp-send-buffer "^[23].*\n"))
(set-buffer nntp-server-buffer)
- (setq msg (buffer-string (point-min) (point-max)))
+ (setq msg (buffer-substring (point-min) (point-max)))
(or (string-match "^\\([0-9]+\\)" msg)
(error "nndb: %s" msg))
(setq art (substring msg (match-beginning 1) (match-end 1)))
(deffoo nndb-status-message (&optional server)
"Return server status as a string."
(set-buffer nntp-server-buffer)
- (buffer-string (point-min) (point-max)))
+ (buffer-substring (point-min) (point-max)))
;; Import stuff from nntp
;; Return the buffer contents.
((eq ,temp-file t)
(set-buffer ,temp-buffer)
- (buffer-string))
+ (buffer-substring (point-min) (point-max)))
;; Save a file.
(t
(set-buffer ,temp-buffer)
(delete-region (point-min) (match-end 0)))
(unless (yes-or-no-p
(format "movemail: %s (%d return). Continue? "
- (buffer-string) result))
- (error "%s" (buffer-string)))
+ (buffer-substring
+ (point-min) (point-max)) result))
+ (error "%s" (buffer-substring (point-min) (point-max))))
(setq tofile nil)))
))))
(nnmail-set-password inbox nnmail-internal-password)
;; Narrow to the status.
(narrow-to-region
(point)
- (if (re-search-forward "^[^ \t]" nil t)
- (1- (point))
- (point-max)))
+ (progn
+ (while (and (zerop (forward-line 1))
+ (memq (char-after) '(?\t ?\ ))))
+ (point)))
;; Go through all elements and add them to the list.
(goto-char (point-min))
(while (re-search-forward "[^ \t=]+" nil t)
(message-remove-header message-ignored-mail-headers t))
(goto-char (point-max))
;; require one newline at the end.
- (or (eq (char-before) ?\n)
+ (or (bolp)
(insert ?\n))
(let ((case-fold-search t))
;; Change header-delimiter to be what sendmail expects.
(re-search-forward
(concat "^" (regexp-quote real-header-separator) "\n"))
(replace-match "\n")
- (backward-char 1)
+ (forward-char -1)
(setq delimline (point-marker))
;; Insert an extra newline if we need it to work around
;; Sun's bug that swallows newlines.
;; Make status message by folding lines.
(while (re-search-forward "[ \t\n]+" nil t)
(replace-match " " t t))
- (nnheader-report 'nnspool "%s" (buffer-string))
+ (nnheader-report 'nnspool "%s" (buffer-substring
+ (point-min) (point-max)))
(nnheader-message 5 "nnspool: %s" nnspool-status-string)
(ding)
(run-hooks 'nnspool-rejected-article-hook))))
(defun nntp-read-server-type ()
"Find out what the name of the server we have connected to is."
;; Wait for the status string to arrive.
- (setq nntp-server-type (buffer-string))
+ (setq nntp-server-type (buffer-substring (point-min) (point-max)))
(let ((alist nntp-server-action-alist)
(case-fold-search t)
entry)
(defun nntp-snarf-error-message ()
"Save the error message in the current buffer."
- (let ((message (buffer-string)))
+ (let ((message (buffer-substring (point-min) (point-max))))
(while (string-match "[\r\n]+" message)
(setq message (replace-match " " t t message)))
(nnheader-report 'nntp message)
pop3-fma-movemail-program)
nil movemail-output-buffer nil
pop3-fma-commandline-arguments)
- (let ((string (buffer-string)))
+ (let ((string (buffer-substring (point-min) (point-max))))
(if (> (length string) 0)
(progn
(if (y-or-n-p
\e$B$i$$IQHK$KFI$`$+$K$h$C$F%0%k!<%W%P%C%U%!$r%=!<%H$7$?$$$J$"!"$J$s\e(B
\e$B$F;W$o$J$$!)M}$K$+$J$C$F$k$G$7$g!)\e(B
-\e$B%0%k!<%W%9%3%"\e(B @dfn{group score} \e$B$O$=$N$?$a$N$b$N$G$9!#$=$l$>$l$N%0%k!<\e(B
-\e$B%W$KBP$7$F%9%3%"$r;XDj$9$k$3$H$,$G$-$^$9!#$=$7$F%0%k!<%W%P%C%U%!$r$3$N%9\e(B
-\e$B%3%"$r4p$K%=!<%H$9$k$3$H$,$G$-$^$9!#$"$k$$$O!"%9%3%"=g$G%=!<%H$7$F$=$N8e\e(B
-\e$B%l%Y%k$G%=!<%H$9$k$3$H$b$G$-$^$9!#!J%l%Y%k$H%9%3%"$r$R$H$^$H$a$K$7$F!"%0\e(B
-\e$B%k!<%W$N\e(B@dfn{\e$B%i%s%/\e(B} (@dfn{rank}) \e$B$H8F$S$^$9!#%l%Y%k$,\e(B 4 \e$B$G%9%3%"$,\e(B 1 \e$B$N\e(B
-\e$B%0%k!<%W$O!"%l%Y%k$,\e(B 5 \e$B$G%9%3%"$,\e(B 300 \e$B$N%0%k!<%W$h$j$b9b$$%i%s%/$H$J$j$^\e(B
-\e$B$9!#!J%l%Y%k$NJ}$,=EMWEY$,9b$/!"%9%3%"$NJ}$O=EMWEY$,Dc$/$J$j$^$9!#!K!K\e(B
+@dfn{\e$B%0%k!<%W%9%3%"\e(B} (@dfn{group score}) \e$B$O$=$N$?$a$N$b$N$G$9!#$=$l$>$l\e(B
+\e$B$N%0%k!<%W$KBP$7$F%9%3%"$r;XDj$9$k$3$H$,$G$-$^$9!#$=$7$F%0%k!<%W%P%C%U%!\e(B
+\e$B$r$3$N%9%3%"$r4p$K%=!<%H$9$k$3$H$,$G$-$^$9!#$"$k$$$O!"%9%3%"=g$G%=!<%H$7\e(B
+\e$B$F$=$N8e%l%Y%k$G%=!<%H$9$k$3$H$b$G$-$^$9!#!J%l%Y%k$H%9%3%"$r$R$H$^$H$a$K\e(B
+\e$B$7$F!"%0%k!<%W$N\e(B@dfn{\e$B%i%s%/\e(B} (@dfn{rank}) \e$B$H8F$S$^$9!#%l%Y%k$,\e(B 4 \e$B$G%9%3\e(B
+\e$B%"$,\e(B 1 \e$B$N%0%k!<%W$O!"%l%Y%k$,\e(B 5 \e$B$G%9%3%"$,\e(B 300 \e$B$N%0%k!<%W$h$j$b9b$$%i%s\e(B
+\e$B%/$H$J$j$^$9!#!J%l%Y%k$NJ}$,=EMWEY$,9b$/!"%9%3%"$NJ}$O=EMWEY$,Dc$/$J$j$^\e(B
+\e$B$9!#!K!K\e(B
@findex gnus-summary-bubble-group
\e$BIQHK$KFI$`%0%k!<%W$K!"$a$C$?$KFI$^$J$$%0%k!<%W$h$j$b9b$$%9%3%"$rM?$($?$$$H\e(B
@section \e$B%0%k!<%W$X$N0u\e(B
@cindex marking groups
-\e$B$b$7$$$/$D$+$N%0%k!<%W$KBP$7$F2?$i$+$NL?Na$r<B9T$7$?$$>l9g$G!"$=$l$i$,%0%k!<\e(B
-\e$B%W%P%C%U%!$KO"B3$7$F$"$k>l9g$K$O!"DL>oDL$jL?Na$KBP$7$F?t;z%W%l%U%#%C%/%9$r\e(B
-\e$BM?$($k$@$1$G$9!#$=$&$9$l$P$[$H$s$I$N%0%k!<%W%3%^%s%I$O!"$3$l$i$N%0%k!<%W$K\e(B
-\e$BBP$7$F$"$J$?$NL?Na$K=>$$$^$9!#\e(B
+\e$B$b$7$$$/$D$+$N%0%k!<%W$KBP$7$F2?$i$+$NL?Na$r<B9T$7$?$$>l9g$G!"$=$l$i$,%0\e(B
+\e$B%k!<%W%P%C%U%!$KO"B3$7$F$"$k>l9g$K$O!"DL>oDL$jL?Na$KBP$7$F?t;z@\F,<-$rM?\e(B
+\e$B$($k$@$1$G$9!#$=$&$9$l$P$[$H$s$I$N%0%k!<%WL?Na$O!"$3$l$i$N%0%k!<%W$KBP$7\e(B
+\e$B$F$"$J$?$NL?Na$K=>$$$^$9!#\e(B
\e$B$7$+$7$=$l$i$N%0%k!<%W$,=gHV$KJB$s$G$$$J$$>l9g$K$*$$$F$b!"$$$/$D$+$N%0%k!<\e(B
\e$B%W$KBP$7$FL?Na$r<B9T$9$k$3$H$,$G$-$^$9!#C1$K;O$a$K%W%m%;%90u$G%0%k!<%W$K\e(B
@item M w
@kindex M w (Group)
@findex gnus-group-mark-region
-\e$B%]%$%s%H$H%^!<%/$K4V$NA4$F$N%0%k!<%W$K0u$r$D$1$k\e(B
+\e$B%]%$%s%H$H%^!<%/$N4V$NA4$F$N%0%k!<%W$K0u$r$D$1$k\e(B
(@code{gnus-group-mark-region})\e$B!#\e(B
@item M b
@kindex M b (Group)
@findex gnus-group-mark-buffer
-\e$B%P%C%U%!Fb$NA4$F$N%0%k!<%W$K0u$r$D$1$k\e(B
+\e$B%P%C%U%!Fb$NA4$F$N%0%k!<%W$K0u$r$D$1$k\e(B
(@code{gnus-group-mark-buffer})\e$B!#\e(B
@item M r
@kindex M r (Group)
@findex gnus-group-mark-regexp
-\e$B$"$k@55,I=8=$K%^%C%A$9$kA4$F$N%0%k!<%W$K0u$r$D$1$k\e(B
+\e$B$"$k@55,I=8=$K9gCW$9$kA4$F$N%0%k!<%W$K0u$r$D$1$k\e(B
(@code{gnus-group-mark-regexp})\e$B!#\e(B
@end table
-@pxref{Process/Prefix} \e$B$b;2>H$7$F$/$@$5$$!#\e(B
+@ref{Process/Prefix} \e$B$b;2>H$7$F$/$@$5$$!#\e(B
@findex gnus-group-universal-argument
\e$B%W%m%;%90u$,IU$1$i$l$F$$$kA4$F$N%0%k!<%W$KBP$7$F2?$+$NL?Na$r<B9T$7$?$$\e(B
@section \e$B30It%0%k!<%W\e(B
@cindex foreign groups
-\e$B0J2<$G$O!"0lHLE*$J30It%0%k!<%W$N:n@.!"JQ99$r9T$&%0%k!<%W%b!<%I$NL?Na$r$$$/\e(B
-\e$B$D$+!"$*$h$SFCJL$JL\E*$N%0%k!<%W$N4JC1$K:n@.$9$kL?Na$r>R2p$7$^$9!#$3$l$i$N\e(B
-\e$BL?Na$OA4$F!"?75,$K:n@.$7$?%0%k!<%W$r%]%$%s%H0LCV$KA^F~$7$^$9!=!=\e(B
+\e$B0J2<$G$O!"0lHLE*$J30It%0%k!<%W$N:n@.!"JQ99$r9T$&%0%k!<%W%b!<%I$NL?Na$r$$\e(B
+\e$B$/$D$+!"$*$h$SFCJL$JL\E*$N%0%k!<%W$r4JC1$K:n@.$9$kL?Na$r>R2p$7$^$9!#$3$l\e(B
+\e$B$i$NL?Na$OA4$F!"?75,$K:n@.$7$?%0%k!<%W$r%]%$%s%H0LCV$KA^F~$7$^$9!=!=\e(B
@code{gnus-subscribe-newsgroup-method} \e$B$O;2>H$5$l$^$;$s!#\e(B
@table @kbd
\e$B?7$7$$%0%k!<%W$r:n@.$7$^$9\e(B (@code{gnus-group-make-group})\e$B!#\e(BGnus \e$B$O%W%m%s\e(B
\e$B%W%H$rI=<($7$F!"L>A0$HJ}K!$H!">l9g$K$h$C$F$O\e(B @dfn{address} \e$B$NF~NO$r\e(B
\e$B5a$a$F$-$^$9!#$h$j4JC1$K\e(B @sc{nntp} \e$B%0%k!<%W$r9XFI$9$kJ}K!$O!"\e(B
-@pxref{Browse Foreign Server} \e$B$r;2>H$7$F$/$@$5$$!#\e(B
+@pxref{Browse Foreign Server}\e$B!#\e(B
@item G r
@kindex G r (Group)
@findex gnus-group-make-directory-group
@cindex nndir
\e$B%G%#%l%/%H%j%0%k!<%W$r:n@.$7$^$9\e(B (@pxref{Directory Groups})\e$B!#%G%#%l%/%H%j\e(B
-\e$BL>$r%W%m%s%W%HF~NO$7$^$9\e(B (@code{gnus-group-make-directory-group})\e$B!#\e(B
+\e$BL>$r%W%m%s%W%H$GF~NO$7$^$9\e(B (@code{gnus-group-make-directory-group})\e$B!#\e(B
@item G h
@kindex G h (Group)
@kindex G k (Group)
@findex gnus-group-make-kiboze-group
@cindex nnkiboze
-kiboze \e$B%0%k!<%W$r:n@.$7$^$9!#%W%m%s%W%H$GL>A0$H!"\e(Bkiboze \e$B%0%k!<%W$K!V4^$a$?\e(B
-\e$B$$!W%0%k!<%W$K%^%C%A$9$k@55,I=8=$H!"%X%C%@$H%^%C%A$9$kJ8;zNs$NAH$rF~NO$7\e(B
-\e$B$^$9\e(B (@code{gnus-group-make-kiboze-group})\e$B!#\e(B@xref{Kibozed Groups}\e$B!#\e(B
+kiboze \e$B%0%k!<%W$r:n@.$7$^$9!#%W%m%s%W%H$GL>A0$H!"\e(Bkiboze \e$B%0%k!<%W$K!V4^$a\e(B
+\e$B$?$$!W%0%k!<%W$K9g$&@55,I=8=$H!"%X%C%@!<$K9g$&J8;zNs$NAH$rF~NO$7$^$9\e(B
+(@code{gnus-group-make-kiboze-group})\e$B!#\e(B@xref{Kibozed Groups}.
@item G D
@kindex G D (Group)
@cindex ClariNet Briefs
@cindex nndoc
\e$B%U%!%$%k$J$I$r$b$H$K%0%k!<%W$r:n@.$7$^$9\e(B
-(@code{gnus-group-make-doc-group})\e$B!#$3$N%3%^%s%I$K%W%l%U%#%C%/%9$rM?$($?>l\e(B
-\e$B9g!"%U%!%$%kL>$H%U%!%$%k%?%$%W$r%W%m%s%W%H$GF~NO$7$^$9!#8=:_%5%]!<%H$5$l$F\e(B
-\e$B$$$k%U%!%$%k%?%$%W$O!"\e(B@code{babyl}, @code{mbox}, @code{digest},
-@code{mmdf}, @code{news}, @code{rnews}, @code{clari-briefs},
-@code{rfc934}, @code{rfc822-forward}, @code{forward} \e$B$G$9!#%W%l%U%#%C%/%9\e(B
-\e$B$J$7$G$3$N%3%^%s%I$r<B9T$9$k$H!"\e(Bgnus \e$B$O%U%!%$%k%?%$%W$r?dB,$7$^$9!#\e(B
-@xref{Document Groups}\e$B!#\e(B
+(@code{gnus-group-make-doc-group})\e$B!#$3$N%3%^%s%I$K@\F,<-$rM?$($?>l9g!"%U%!\e(B
+\e$B%$%kL>$H%U%!%$%k%?%$%W$r%W%m%s%W%H$GF~NO$7$^$9!#8=:_%5%]!<%H$5$l$F$$$k%U%!\e(B
+\e$B%$%k%?%$%W$O!"\e(B@code{babyl}, @code{mbox}, @code{digest}, @code{mmdf},
+@code{news}, @code{rnews}, @code{clari-briefs}, @code{rfc934},
+@code{rfc822-forward}, @code{forward} \e$B$G$9!#@\F,<-$J$7$G$3$N%3%^\e(B
+\e$B%s%I$r<B9T$9$k$H!"\e(Bgnus \e$B$O%U%!%$%k%?%$%W$r?dB,$7$^$9!#\e(B@xref{Document
+Groups}\e$B!#\e(B
@item G u
@kindex G u (Group)
@cindex InReference
@cindex nnweb
\e$B%&%'%V8!:w7k2L$r$b$H$K0l;~E*$J%0%k!<%W$r:n@.$7$^$9\e(B
-(@code{gnus-group-make-web-group})\e$B!#$3$N%3%^%s%I$K%W%l%U%#%C%/%9$rM?$($k$H!"\e(B
+(@code{gnus-group-make-web-group})\e$B!#$3$N%3%^%s%I$K@\F,<-$rM?$($k$H!"\e(B
\e$B0l;~E*$G$O$J$/8GDj$7$?%0%k!<%W$r:n@.$7$^$9!#%W%m%s%W%H$G8!:w5!4X$N<oN`\e(B
(search engine type) \e$B$H8!:wJ8;zNs$rF~NO$7$^$9!#M-8z$J8!:w5!4X$N<oN`$K$O\e(B
@code{dejanews}, @code{altavista}, @code{reference} \e$B$,$"$j$^$9!#\e(B
@xref{Web Searches}.
\e$B$b$7!"\e(B@code{dejanews} \e$B8!:w5!4X$rMQ$$$k>l9g$K$O!"\e(B@samp{~g
-alt.sysadmin.recovery shaving} \e$B$N$h$&$J%^%C%A$9$kJ8;zNs$rMQ$$$k$3$H$K$h$C\e(B
+alt.sysadmin.recovery shaving} \e$B$N$h$&$J9gCW$9$kJ8;zNs$rMQ$$$k$3$H$K$h$C\e(B
\e$B$F!"8!:wBP>]$rFCDj$N%0%k!<%W$K8BDj$9$k$3$H$,2DG=$G$9!#\e(B
@item G DEL
@kindex G DEL (Group)
@findex gnus-group-delete-group
-\e$B$3$N4X?t$O8=:_$N%0%k!<%W$r:o=|$7$^$9\e(B (@code{gnus-group-delete-group})\e$B!#%W\e(B
-\e$B%l%U%#%C%/%9$,M?$($i$l$k$H!"$3$N4X?t$O$=$N%0%k!<%WFb$NA45-;v$rK\Ev$K:o=|$7!"\e(B
-\e$B%0%k!<%W<+?H$r$3$N@$$+$i6/@)E*$KKu;&$7$F$7$^$$$^$9!#%W%l%U%#%C%/%9$O!"$"$J\e(B
+\e$B$3$N4X?t$O8=:_$N%0%k!<%W$r:o=|$7$^$9\e(B (@code{gnus-group-delete-group})\e$B!#\e(B
+\e$B@\F,<-$,M?$($i$l$k$H!"$3$N4X?t$O$=$N%0%k!<%WFb$NA45-;v$rK\Ev$K:o=|$7!"\e(B
+\e$B%0%k!<%W<+?H$r$3$N@$$+$i6/@)E*$KKu;&$7$F$7$^$$$^$9!#@\F,<-$O!"$"$J\e(B
\e$B$?$,2?$r$d$m$&$H$7$F$$$k$+!"K\Ev$K<+?.$,$"$k$H$-$K$N$_;H$C$F$/$@$5$$!#$^$"!"\e(B
\e$B$3$N%3%^%s%I$O!J\e(B@code{nntp} \e$B%0%k!<%W$N$h$&$J!KFI$_=P$7@lMQ%0%k!<%W$K$O;H$(\e(B
\e$B$^$;$s$1$I!#\e(B
@section \e$B%0%k!<%W%Q%i%a!<%?\e(B
@cindex group parameters
-\e$B%0%k!<%W%Q%i%a!<%?$O!"$"$kFCDj$N%0%k!<%W%m!<%+%k$J>pJs$r3JG<$7$^$9!#0J2<$O\e(B
+\e$B%0%k!<%W%Q%i%a!<%?$O!"$"$kFCDj$N%0%k!<%W$K8GM-$J>pJs$r3JG<$7$^$9!#0J2<$O\e(B
\e$B%0%k!<%W%Q%i%a!<%?%j%9%H$NNc$G$9!'\e(B
@example
(to-address . "some@@where.com")
@end example
-\e$B$3$l$O<g$K!"%/%m!<%:%I$J%a!<%j%s%0%j%9%H$rI=$o$9%a!<%k%0%k!<%W$K$*$$$FJXMx\e(B
-\e$B$J$b$N$G$9!=!=$9$J$o$A%a!<%j%s%0%j%9%H$KEj9F$9$k?M$OA4$F$=$l$r9XFI$7$F$$$k\e(B
-\e$B$O$:!"$H$$$&%a!<%j%s%0%j%9%H$N$3$H$G$9!#$3$N%Q%i%a!<%?$r;HMQ$9$k$H!"%a!<%k\e(B
-\e$B$O$=$N%a!<%j%s%0%j%9%H$K$7$+Ej9F$5$l$J$$$3$H$,J]>Z$5$l$k$N$G!";22C<T$O$"$J\e(B
-\e$B$?$N%U%)%m!<%"%C%W5-;v$r\e(B2\e$BDL<u$1<h$k$3$H$O$"$j$^$;$s!#\e(B
+\e$B$3$l$O<g$K!"JD$8$?%a!<%j%s%0%j%9%H$rI=$o$9%a!<%k%0%k!<%W$K$*$$$FJXMx$J$b\e(B
+\e$B$N$G$9!=!=$9$J$o$A%a!<%j%s%0%j%9%H$KEj9F$9$k?M$OA4$F$=$l$r9XFI$7$F$$$k$O\e(B
+\e$B$:!"$H$$$&%a!<%j%s%0%j%9%H$N$3$H$G$9!#$3$N%Q%i%a!<%?$r;HMQ$9$k$H!"%a!<%k\e(B
+\e$B$O$=$N%a!<%j%s%0%j%9%H$K$7$+Ej9F$5$l$J$$$3$H$,J]>Z$5$l$k$N$G!";22C<T$O$"\e(B
+\e$B$J$?$N%U%)%m!<%"%C%W5-;v$r\e(B2\e$BDL<u$1<h$k$3$H$O$"$j$^$;$s!#\e(B
@code{to-address} \e$B$r;XDj$9$k$H!"$=$N%0%k!<%W$,30It%0%k!<%W$G$"$k$+$I$&$+\e(B
\e$B$K4X$o$i$:M-8z$K$J$j$^$9!#Nc$($P\e(B @samp{fa.4ad-l} \e$B$H$$$&%0%k!<%W$,%5!<%P\e(B
@item newsgroup
@cindex newsgroup
-\e$B%0%k!<%W%Q%i%a!<%?%j%9%H$K\e(B @code{(newsgroup . t)} \e$B$,$"$l$P!"\e(Bgnus \e$B$OA4$F$N\e(B
-\e$B%l%9%]%s%9$r%K%e!<%95-;v$KBP$9$k%l%9%]%s%9$G$"$k$+$N$h$&$K07$$$^$9!#$3$l$O\e(B
-\e$B<B:]$K$O%K%e!<%9%0%k!<%W$N%_%i!<$G$"$k%a!<%k%0%k!<%W$KBP$7$FM-8z$G$9!#\e(B
+\e$B%0%k!<%W%Q%i%a!<%?%j%9%H$K\e(B @code{(newsgroup . t)} \e$B$,$"$l$P!"\e(Bgnus \e$B$OA4$F\e(B
+\e$B$N1~Ez$r%K%e!<%95-;v$KBP$9$k1~Ez$G$"$k$+$N$h$&$K07$$$^$9!#$3$l$O<B:]$K$O\e(B
+\e$B%K%e!<%9%0%k!<%W$N%_%i!<$G$"$k%a!<%k%0%k!<%W$KBP$7$FM-8z$G$9!#\e(B
@item gcc-self
@cindex gcc-self
@item auto-expire
@cindex auto-expire
\e$B%0%k!<%W%Q%i%a!<%?$K\e(B @code{(auto-expire . t)} \e$B$N$h$&$JMWAG$,$"$l$P!"A4$F\e(B
-\e$B$N4{FI5-;v$O%(%/%9%Q%$%"$5$l$k$h$&$K%^!<%/$5$l$^$9!#B>$NJ}K!$K$D$$$F$O\e(B
-@pxref{Expiring Mail} \e$B$r;2>H$7$F$/$@$5$$!#\e(B
+\e$B$N4{FI5-;v$O;~8B>C5n$5$l$k$h$&$K0u$rIU$1$i$l$^$9!#B>$NJ}K!$O!"\e(B
+@pxref{Expiring Mail}\e$B!#\e(B
@item total-expire
@cindex total-expire
\e$B%0%k!<%W%Q%i%a!<%?$K\e(B @code{(total-expire . t)} \e$B$N$h$&$JMWAG$,$"$l$P!"4{\e(B
-\e$BFI5-;v$O!"%(%/%9%Q%$%"$N%^!<%/$,$D$$$F$$$J$/$H$bA4$F%(%/%9%Q%$%"=hM}$r;\\e(B
-\e$B$5$l$^$9!#Cm0U$7$F;HMQ$7$F$/$@$5$$!#L$FI5-;v!"0uIU$-5-;v!"J]N15-;v$O%(%/\e(B
-\e$B%9%Q%$%"$5$l$^$;$s!#\e(B
+\e$BFI5-;v$O!";~8B>C5n$N0u$,$D$$$F$$$J$/$H$bA4$F;~8B>C5n=hM}$r;\$5$l$^$9!#Cm\e(B
+\e$B0U$7$F;HMQ$7$F$/$@$5$$!#L$FI5-;v!"0uIU$-5-;v!"J]N15-;v$O;~8B>C5n$5$l$^$;\e(B
+\e$B$s!#\e(B
@item expiry-wait
@cindex expiry-wait
@vindex nnmail-expiry-wait-function
-\e$B%0%k!<%W%Q%i%a!<%?$K\e(B @code{(expiry-wait . 10)} \e$B$N$h$&$JMWAG$,$"$l$P!"$3$N\e(B
-\e$BCM$O5-;v$r%(%/%9%Q%$%"$9$k$H$-$K\e(B @code{nnmail-expiry-wait} \e$B$H\e(B
-@code{nnmail-expiry-wait-function} \e$B$N@_Dj$h$j$bM%@h$5$l$^$9!#$3$NCM$O%(%/\e(B
-\e$B%9%Q%$%"$NF|?t!J@0?t$G$"$kI,MW$O$J$$!K$+$b$7$/$O\e(B @code{never} \e$B$+\e(B
+\e$B%0%k!<%W%Q%i%a!<%?$K\e(B @code{(expiry-wait . 10)} \e$B$N$h$&$JMWAG$,$"$l$P!"$3\e(B
+\e$B$NCM$O5-;v$r;~8B>C5n$9$k$H$-$K\e(B @code{nnmail-expiry-wait} \e$B$H\e(B
+@code{nnmail-expiry-wait-function} \e$B$N@_Dj$h$j$bM%@h$5$l$^$9!#$3$NCM$O;~\e(B
+\e$B8B>C5n$NF|?t!J@0?t$G$"$kI,MW$O$J$$!K$+$b$7$/$O\e(B @code{never} \e$B$+\e(B
@code{immediate} \e$B$N%7%s%\%k$r;XDj$G$-$^$9!#\e(B
@item score-file
@cindex score file group parameter
-@code{(score-file . "file")} \e$B$N$h$&$JMWAG$O!"\e(B@file{file} \e$B$r8=:_$N%0%k!<%W\e(B
-\e$B$KE,MQ$5$l$k%9%3%"%U%!%$%k$K$7$^$9!#E,MQ$5$l$k%9%3%"%(%s%H%j$OA4$F$3$N%U%!\e(B
+@code{(score-file . "file")} \e$B$N$h$&$JMWAG$O!"\e(B@file{file} \e$B$r8=:_$N%0%k!<\e(B
+\e$B%W$KE,MQ$5$l$k%9%3%"%U%!%$%k$K$7$^$9!#E,MQ$5$l$k%9%3%"EPO?$OA4$F$3$N%U%!\e(B
\e$B%$%k$KF~$j$^$9!#\e(B
@item adapt-file
@cindex adapt file group parameter
@code{(adapt-file . "file")} \e$B$N$h$&$JMWAG$O!"\e(B@file{file} \e$B$r8=:_$N%0%k!<%W\e(B
-\e$B$NE,MQ%U%!%$%k$K$7$^$9!#A4$F$NE,MQ%9%3%"%(%s%H%j$O$3$N%U%!%$%k$KF~$j$^$9!#\e(B
+\e$B$NE,1~%U%!%$%k$K$7$^$9!#A4$F$NE,1~%9%3%"EPO?$O$3$N%U%!%$%k$KF~$j$^$9!#\e(B
@item admin-address
\e$B%a!<%j%s%0%j%9%H$+$iC&2q$9$k$H$-$O!"C&2qDLCN%a!<%k$r$=$N%a!<%j%s%0%j%9%H\e(B
@kindex l (Group)
@findex gnus-group-list-groups
\e$BL$FI5-;v$r;}$DA4$F$N%0%k!<%W$rI=<($7$^$9\e(B (@code{gnus-group-list-groups})\e$B!#\e(B
-\e$B?t;z%W%l%U%#%C%/%9$r;H$&$H!"$3$N%3%^%s%I$O0z?t$N?t$+$=$l$h$j$b>.$5$$%l%Y%k\e(B
+\e$B?t;z@\F,0z?t$r;H$&$H!"$3$N%3%^%s%I$O0z?t$N?t$+$=$l$h$j$b>.$5$$%l%Y%k\e(B
\e$B$N%0%k!<%W$N$_$rI=<($7$^$9!#=i4|@_Dj$G$O!"$3$l$O%l%Y%k\e(B 5\e$B!J$D$^$j\e(B
@code{gnus-group-default-list-level}\e$B!K$+$=$l$h$j>.$5$$%l%Y%k!J$9$J$o$A9XFI\e(B
\e$B$7$F$$$k%0%k!<%W$N$_!K$rI=<($7$^$9!#\e(B
@kindex L (Group)
@findex gnus-group-list-all-groups
\e$BL$FI5-;v$N$"$k$J$7$K4X$o$i$:!"A4$F$N%0%k!<%W$rI=<($7$^$9\e(B
-(@code{gnus-group-list-all-groups})\e$B!#?t;z%W%l%U%#%C%/%9$r;HMQ$9$k$H!"$3\e(B
+(@code{gnus-group-list-all-groups})\e$B!#?t;z@\F,0z?t$r;HMQ$9$k$H!"$3\e(B
\e$B$N%3%^%s%I$O0z?t$N?t$+$=$l$h$j$b>.$5$$%l%Y%k$N%0%k!<%W$N$_$rI=<($7$^$9!#\e(B
\e$B=i4|@_Dj$G$O\e(B 7 \e$B$+$=$l$h$j$b>.$5$$%l%Y%k$N%0%k!<%W!J$9$J$o$A9XFI!"Hs9XFI\e(B
\e$B$N%0%k!<%W$N$_!K$,I=<($5$l$^$9!#\e(B
@kindex A l (Group)
@findex gnus-group-list-level
\e$B$"$kFCDj$N%l%Y%k$NL$FI5-;v$N$"$k%0%k!<%W$rI=<($7$^$9\e(B
-(@code{gnus-group-list-level})\e$B!#%W%l%U%#%C%/%9$rM?$($k$H!"L$FI5-;v$N$J$$\e(B
+(@code{gnus-group-list-level})\e$B!#@\F,<-$rM?$($k$H!"L$FI5-;v$N$J$$\e(B
\e$B%0%k!<%W$b4^$a$FI=<($7$^$9!#\e(B
@item A k
@kindex A k (Group)
@findex gnus-group-list-killed
-kill \e$B$5$l$?%0%k!<%W$rA4$FI=<($7$^$9\e(B (@code{gnus-group-list-killed})\e$B!#%W\e(B
-\e$B%l%U%#%C%/%90z?t$rM?$($k$H!"8=:_9XFI!"Hs9XFI$H$J$C$F$$$J$$A4$F$NMxMQ2DG=\e(B
+kill \e$B$5$l$?%0%k!<%W$rA4$FI=<($7$^$9\e(B (@code{gnus-group-list-killed})\e$B!#@\\e(B
+\e$BF,0z?t$rM?$($k$H!"8=:_9XFI!"Hs9XFI$H$J$C$F$$$J$$A4$F$NMxMQ2DG=\e(B
\e$B$J%0%k!<%W$rI=<($7$^$9!#$3$l$O%5!<%P$+$i%"%/%F%#%V%U%!%$%k$rFI$`$3$H$K$J\e(B
\e$B$k$G$7$g$&!#\e(B
@item A m
@kindex A m (Group)
@findex gnus-group-list-matching
-\e$B@55,I=8=$K%^%C%A$9$kL>A0$r;}$D%0%k!<%W$G!"L$FI5-;v$N$"$k9XFI%0%k!<%W$rA4\e(B
+\e$B@55,I=8=$K9gCW$9$kL>A0$r;}$D%0%k!<%W$G!"L$FI5-;v$N$"$k9XFI%0%k!<%W$rA4\e(B
\e$B$FI=<($7$^$9\e(B (@code{gnus-group-list-matching})\e$B!#\e(B
@item A M
@kindex A M (Group)
@findex gnus-group-list-all-matching
-\e$B@55,I=8=$K%^%C%A$9$k%0%k!<%W$rI=<($9$k\e(B
+\e$B@55,I=8=$K9gCW$9$k%0%k!<%W$rI=<($9$k\e(B
(@code{gnus-group-list-all-matching})\e$B!#\e(B
@item A A
@findex gnus-group-list-active
\e$B:#@\B3$7$F$$$k%5!<%P$N%"%/%F%#%V%U%!%$%k$K$"$k%0%k!<%W$r!"K\Ev$KA4ItI=<($7\e(B
\e$B$^$9\e(B (@code{gnus-group-list-active})\e$B!#$3$l$O$7$P$i$/;~4V$,$+$+$k$3$H$bM-$j\e(B
-\e$BF@$^$9!#$?$V$s\e(B @kbd{A M} \e$B$r<B9T$7$F!"%^%C%A$5$;$?$$ItJ,$r\e(B @samp{.} \e$B$H$7$F\e(B
-\e$BA4$F$N%^%C%A$9$k%j%9%H$rI=<($5$;$?J}$,NI$$$G$7$g$&!#$^$?!"$3$N%3%^%s%I$O\e(B
+\e$BF@$^$9!#$?$V$s\e(B @kbd{A M} \e$B$r<B9T$7$F!"9gCW$5$;$?$$ItJ,$r\e(B @samp{.} \e$B$H$7$F\e(B
+\e$BA4$F$N9gCW$9$k%j%9%H$rI=<($5$;$?J}$,NI$$$G$7$g$&!#$^$?!"$3$N%3%^%s%I$O\e(B
\e$B!J$^$@!KB8:_$7$J$$%0%k!<%W$bI=<($9$k$+$bCN$l$^$;$s!=!=$3$l$O\e(B kill \e$B$5$l$?%0\e(B
\e$B%k!<%W$G$"$k$+$N$h$&$KI=<($5$l$^$9!#=PNO$OB?>/3d$j0z$$$F<u$1<h$C$F$M!#\e(B
@item A a
@kindex A a (Group)
@findex gnus-group-apropos
-\e$B@55,I=8=$K%^%C%A$9$kL>A0$r;}$D%0%k!<%W$rA4$FI=<($9$k\e(B
+\e$B@55,I=8=$K9gCW$9$kL>A0$r;}$D%0%k!<%W$rA4$FI=<($9$k\e(B
(@code{gnus-group-apropos})\e$B!#\e(B
@item A d
@kindex A d (Group)
@findex gnus-group-description-apropos
-\e$B@55,I=8=$K%^%C%A$9$kL>A0$+@bL@J8$r;}$D%0%k!<%W$rA4$FI=<($9$k\e(B
+\e$B@55,I=8=$K9gCW$9$kL>A0$+@bL@J8$r;}$D%0%k!<%W$rA4$FI=<($9$k\e(B
(@code{gnus-group-description-apropos})\e$B!#\e(B
@end table
@vindex gnus-permanently-visible-groups
@cindex visible group parameter
-@code{gnus-permanently-visible-groups} \e$B@55,I=8=$K%^%C%A$9$k%0%k!<%W$O!"\e(B
+@code{gnus-permanently-visible-groups} \e$B@55,I=8=$K9gCW$9$k%0%k!<%W$O!"\e(B
\e$BL$FI5-;v$,$"$k$+$J$$$+$K4X$o$i$:>o$KI=<($5$l$^$9!#$"$k$$$O%0%k!<%W%Q%i%a!<\e(B
\e$B%?$K$*$$$F\e(B @code{visible} \e$BMWAG$rDI2C$9$k$3$H$G$bF1MM$N8z2L$rF@$k$3$H$,$G\e(B
\e$B$-$^$9!#\e(B
@end table
-\e$B%W%l%U%#%C%/%9$rM?$($?$H$-$O!"$3$l$i$NL?Na$OA4$F5U=g$KJB$YBX$($^$9!#\e(B
+\e$B@\F,<-$rM?$($?$H$-$O!"$3$l$i$NL?Na$OA4$F5U=g$KJB$YBX$($^$9!#\e(B
\e$B$^$?!"%0%k!<%W$N0lIt$rJB$YBX$($k$3$H$b$G$-$^$9!#\e(B
\e$B$G$J$$CM$r5"$;$P!"MM<0$O\e(B @code{\e$B9gCW$7$?\e(B} \e$B$H8@$$$^$9!#\e(B
\e$B$=$l$>$l$NMM<0$OG$0U$NNL$N\e(B @dfn{\e$BB0@-\e(B} \e$B$r;}$D;v$,$G$-$^$9!#$=$l$>$l$NB0@-\e(B
-\e$B$O\e(B @var{(name . value)} \e$B$NBP$K$h$j@.$jN)$C$F$$$^$9!#B0@-L>$O!"\e(B
+\e$B$O\e(B @var{(name value)} \e$B$NBP$K$h$j@.$jN)$C$F$$$^$9!#B0@-L>$O!"\e(B
@code{signature}, @code{signature-file}, @code{organization},
@code{address}, @code{name}, @code{body} \e$B$N$I$l$+$G$"$k;v$,$G$-$^$9!#B0\e(B
\e$B@-L>$OJ8;zNs$G$"$k;v$b$G$-$^$9!#$=$N>l9g$O!"$3$l$O%X%C%@!<L>$H$7$F;H$o$l!"\e(B
\e$B$G$"$k$H\e(B ``\e$B$7$J$$\e(B'' \e$B$J$i!"\e(Bgnus \e$B$O\e(B ``\e$B7h$7$F\e(B'' \e$B$=$l$i$N\e(B ``\e$B5-;v\e(B'' \e$B$r>C5n$7\e(B
\e$B$^$;$s!#\e(B
-@vindex gnus-auto-expirable-newgroups
+@vindex gnus-auto-expirable-newsgroups
\e$B<j$G5-;v$K4|8B@Z$l>C5n2DG=$N0u$rIU$1$J$1$l$P$J$i$J$$$o$G$G$O$"$j$^$;$s!#\e(B
\e$B@55,I=8=\e(B @code{gnus-auto-expirable-newsgroups} \e$B$K9gCW$9$k%0%k!<%W$OA4$F\e(B
\e$B$N4{FI5-;v$K<+F0E*$K4|8B@Z$l>C5n2DG=$N0u$,IU$1$i$l$^$9!#A4$F$N4|8B@Z$l>C\e(B
\e$B2DG=$K$7$^$9!#\e(B
@lisp
-(setq gnus-auto-expirable-newgroups
+(setq gnus-auto-expirable-newsgroups
"mail.nosense-list\\|mail.nice-list")
@end lisp
@node Agent Expiry
@subsection \e$B%(!<%8%'%s%H4|8B@Z$l>C5n\e(B
-@vindex gnus-agent-expiry-days
-@findex gnus-agent-expiry
-@kindex M-x gnus-agent-expiry
-@cindex Agent expiry
-@cindex Gnus Agent expiry
+@vindex gnus-agent-expire-days
+@findex gnus-agent-expire
+@kindex M-x gnus-agent-expire
+@cindex Agent expire
+@cindex Gnus Agent expire
@cindex expiry
@code{nnagent} \e$B$O4|8B@Z$l>C5n$r07$$$^$;$s!#$=$NBe$o$j$K!"FCJL$J\e(B
-@code{gnus-agent-expiry} \e$BL?Na$,\e(B @code{gnus-agent-expiry-days} \e$BF|\e(B
+@code{gnus-agent-expire} \e$BL?Na$,\e(B @code{gnus-agent-expire-days} \e$BF|\e(B
\e$B$h$j$b8E$$4{FI5-;v$rA4$F>C5n$7$^$9!#$3$l$O$"$J$?$,%G%#%9%/MFNL$r\e(B
\e$B;H$$@Z$j$=$&$@$H;W$C$?$H$-$K$$$D$G$b<B9T$9$k$3$H$,$G$-$^$9!#$3$l\e(B
\e$B$OFC$KB.$/$b$J$/8zN(E*$G$b$J$/!"0lC6;O$a$F$7$^$C$?$i\e(B (@kbd{C-g}
to @dfn{match}.
Each style may contain a arbitrary amount of @dfn{attributes}. Each
-attribute consists of a @var{(name . value)} pair. The attribute name
+attribute consists of a @var{(name value)} pair. The attribute name
can be one of @code{signature}, @code{signature-file},
@code{organization}, @code{address}, @code{name} or @code{body}. The
attribute name can also be a string. In that case, this will be used as
projects / elisp / gnus.git- / commitdiff