From: ichikawa Date: Tue, 30 Jun 1998 13:12:03 +0000 (+0000) Subject: Sync up with Gnus 5.6.22 X-Git-Tag: gnus-6_7-199811302358~3 X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=0e90597699f063a9a15560b9ccbf4ac9b722a326;p=elisp%2Fgnus.git- Sync up with Gnus 5.6.22 --- diff --git a/ChangeLog b/ChangeLog index 1bd8ad5..59a6f86 100644 --- a/ChangeLog +++ b/ChangeLog @@ -1,3 +1,9 @@ +1998-06-30 Tatsuya Ichikawa + + * Sync up with Gnus 5.6.22 + * lisp/gnus.el (gnus-version-number): Update to 6.7.8. + * lisp/pop3-fma.el : Enable to get localhost mail spool. + 1998-06-29 MORIOKA Tomohiko * lisp/gnus.el (gnus-version-number): Update to 6.7.7. diff --git a/GNUS-NEWS b/GNUS-NEWS index bef3a3a..71e58c7 100644 --- a/GNUS-NEWS +++ b/GNUS-NEWS @@ -97,3 +97,4 @@ updated by the `gnus-start-date-timer' command. *** Old dejanews archives can now be read by nnweb. +*** Byte-compilation of user-specs now works under XEmacs. diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 671dafe..68e3957 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,48 @@ +Mon Jun 29 22:49:49 1998 Lars Magne Ingebrigtsen + + * gnus.el: Gnus v5.6.22 is released. + +Mon Jun 29 21:22:46 1998 Lars Magne Ingebrigtsen + + * gnus-salt.el (gnus-pick-mode-map): Remove gnus-mouse. + + * gnus-sum.el (gnus-dependencies-add-header): `debug' left in. + Eh. Eh. + + * gnus-salt.el (gnus-summary-pick-line-format): Missing %.- + + * gnus-topic.el (gnus-topic-rename): Fix error message. + +Sun Jun 28 14:32:08 1998 Lars Magne Ingebrigtsen + + * gnus-spec.el (gnus-face-face-function): Double quoting removed. + +Sun Jun 28 09:54:52 1998 Lars Magne Ingebrigtsen + + * gnus.el: Gnus v5.6.21 is released. + +Sun Jun 28 08:51:39 1998 Lars Magne Ingebrigtsen + + * gnus-sum.el (gnus-summary-edit-article-done): Copy the buffer to + a temp buffer before replacing. + + * gnus-msg.el (gnus-post-news): Treat broken-reply-to in + followups. + + * gnus-sum.el (gnus-summary-goto-subject): Position point. + +Sat Jun 27 09:19:20 1998 Lars Magne Ingebrigtsen + + * gnus-demon.el (gnus-util): Required. + + * gnus-score.el (gnus-score-body): Message fix. + + * gnus-group.el (gnus-group-highlight-line): Use it. + + * gnus-util.el + (gnus-put-text-properties-excluding-characters-with-faces): New + function. + Sat Jun 27 08:56:08 1998 Lars Magne Ingebrigtsen * gnus.el: Gnus v5.6.20 is released. diff --git a/lisp/gnus-demon.el b/lisp/gnus-demon.el index 1f33930..0015a90 100644 --- a/lisp/gnus-demon.el +++ b/lisp/gnus-demon.el @@ -32,6 +32,7 @@ (require 'nnheader) (require 'nntp) (require 'nnmail) +(require 'gnus-util) (eval-and-compile (if (string-match "XEmacs" (emacs-version)) (require 'itimer) diff --git a/lisp/gnus-group.el b/lisp/gnus-group.el index a92c5ff..3d9fc88 100644 --- a/lisp/gnus-group.el +++ b/lisp/gnus-group.el @@ -1127,7 +1127,7 @@ If REGEXP, only list groups matching REGEXP." (setq list (cdr list))) (let ((face (cdar list))) (unless (eq face (get-text-property beg 'face)) - (gnus-put-text-property + (gnus-put-text-property-excluding-characters-with-faces beg end 'face (setq face (if (boundp face) (symbol-value face) face))) (gnus-extent-start-open beg))) diff --git a/lisp/gnus-msg.el b/lisp/gnus-msg.el index 0b9018e..0c830cb 100644 --- a/lisp/gnus-msg.el +++ b/lisp/gnus-msg.el @@ -414,6 +414,7 @@ header line with the old Message-ID." (if post (message-news (or to-group group)) (set-buffer gnus-article-copy) + (gnus-msg-treat-broken-reply-to) (message-followup (if (or newsgroup-p force-news) nil to-group))) ;; The is mail. (if post diff --git a/lisp/gnus-salt.el b/lisp/gnus-salt.el index 9a56f37..c8280b2 100644 --- a/lisp/gnus-salt.el +++ b/lisp/gnus-salt.el @@ -58,7 +58,7 @@ :group 'gnus-summary-pick) (defcustom gnus-summary-pick-line-format - "-5P %U\%R\%z\%I\%(%[%4L: %-20,20n%]%) %s\n" + "%-5P %U\%R\%z\%I\%(%[%4L: %-20,20n%]%) %s\n" "*The format specification of the lines in pick buffers. It accepts the same format specs that `gnus-summary-line-format' does." :type 'string @@ -87,7 +87,6 @@ It accepts the same format specs that `gnus-summary-line-format' does." "E" gnus-uu-mark-by-regexp "b" gnus-uu-mark-buffer "B" gnus-uu-unmark-buffer - gnus-mouse-2 gnus-pick-mouse-pick "X" gnus-pick-start-reading )) @@ -638,7 +637,7 @@ Two predefined functions are available: (not (eval (caar list)))) (setq list (cdr list))))) (unless (eq (setq face (cdar list)) (get-text-property beg 'face)) - (gnus-put-text-property + (gnus-put-text-property-excluding-characters-with-faces beg end 'face (if (boundp face) (symbol-value face) face))))) diff --git a/lisp/gnus-score.el b/lisp/gnus-score.el index 4d81005..68f9c69 100644 --- a/lisp/gnus-score.el +++ b/lisp/gnus-score.el @@ -1651,7 +1651,7 @@ SCORE is the score to add." (setq request-func 'gnus-request-article)) (while articles (setq article (mail-header-number (caar articles))) - (gnus-message 7 "Scoring on article %s of %s..." article last) + (gnus-message 7 "Scoring article %s of %s..." article last) (when (funcall request-func article gnus-newsgroup-name) (widen) (goto-char (point-min)) diff --git a/lisp/gnus-spec.el b/lisp/gnus-spec.el index 138dff8..23215fb 100644 --- a/lisp/gnus-spec.el +++ b/lisp/gnus-spec.el @@ -237,9 +237,9 @@ (defvar gnus-face-4 'bold) (defun gnus-face-face-function (form type) - `(gnus-put-text-property + `(gnus-add-text-properties (point) (progn ,@form (point)) - 'face ',(symbol-value (intern (format "gnus-face-%d" type))))) + '(gnus-face t face ,(symbol-value (intern (format "gnus-face-%d" type)))))) (defun gnus-tilde-max-form (el max-width) "Return a form that limits EL to MAX-WIDTH." @@ -307,7 +307,8 @@ (let ((number (if (match-beginning 1) (match-string 1) "0")) (delim (aref (match-string 2) 0))) - (if (or (= delim ?\() (= delim ?\{)) + (if (or (= delim ?\() + (= delim ?\{)) (replace-match (concat "\"(" (if (= delim ?\() "mouse" "face") " " number " \"")) (replace-match "\")\"")))) diff --git a/lisp/gnus-sum.el b/lisp/gnus-sum.el index 6c928fb..0a20c92 100644 --- a/lisp/gnus-sum.el +++ b/lisp/gnus-sum.el @@ -2425,7 +2425,7 @@ marks of articles." (setq gnus-tmp-name gnus-tmp-from)) (unless (numberp gnus-tmp-lines) (setq gnus-tmp-lines 0)) - (gnus-put-text-property + (gnus-put-text-property-excluding-characters-with-faces (point) (progn (eval gnus-summary-line-format-spec) (point)) 'gnus-number gnus-tmp-number) @@ -2934,7 +2934,6 @@ Returns HEADER if it was entered in the DEPENDENCIES. Returns nil otherwise." ;; Yuk! This is a reference loop. Make the article be a ;; root article. (progn - (debug) (mail-header-set-references (car (symbol-value id-dep)) "none") (setq ref nil)) (setq ref (gnus-parent-id (mail-header-references ref-header))))) @@ -3762,7 +3761,7 @@ or a straight list of headers." (setq gnus-tmp-name gnus-tmp-from)) (unless (numberp gnus-tmp-lines) (setq gnus-tmp-lines 0)) - (gnus-put-text-property + (gnus-put-text-property-excluding-characters-with-faces (point) (progn (eval gnus-summary-line-format-spec) (point)) 'gnus-number number) @@ -5442,6 +5441,7 @@ If FORCE, also allow jumping to articles not currently shown." (gnus-message 3 "Can't find article %d" article)) nil) (goto-char (gnus-data-pos data)) + (gnus-summary-position-point) article))) ;; Walking around summary lines with displaying articles. @@ -7301,55 +7301,58 @@ groups." "Make edits to the current article permanent." (interactive) ;; Replace the article. - (if (and (not read-only) - (not (gnus-request-replace-article - (cdr gnus-article-current) (car gnus-article-current) - (current-buffer)))) - (error "Couldn't replace article") - ;; Update the summary buffer. - (if (and references - (equal (message-tokenize-header references " ") - (message-tokenize-header - (or (message-fetch-field "references") "") " "))) - ;; We only have to update this line. - (save-excursion - (save-restriction - (message-narrow-to-head) - (let ((head (buffer-string)) - header) - (nnheader-temp-write nil - (insert (format "211 %d Article retrieved.\n" - (cdr gnus-article-current))) - (insert head) - (insert ".\n") - (let ((nntp-server-buffer (current-buffer))) - (setq header (car (gnus-get-newsgroup-headers - (save-excursion - (set-buffer gnus-summary-buffer) - gnus-newsgroup-dependencies) - t)))) - (save-excursion - (set-buffer gnus-summary-buffer) - (gnus-data-set-header - (gnus-data-find (cdr gnus-article-current)) - header) - (gnus-summary-update-article-line - (cdr gnus-article-current) header)))))) - ;; Update threads. - (set-buffer (or buffer gnus-summary-buffer)) - (gnus-summary-update-article (cdr gnus-article-current))) - ;; Prettify the article buffer again. - (unless no-highlight - (save-excursion - (set-buffer gnus-article-buffer) - (gnus-run-hooks 'gnus-article-display-hook) - (set-buffer gnus-original-article-buffer) - (gnus-request-article - (cdr gnus-article-current) - (car gnus-article-current) (current-buffer)))) - ;; Prettify the summary buffer line. - (when (gnus-visual-p 'summary-highlight 'highlight) - (gnus-run-hooks 'gnus-visual-mark-article-hook)))) + (let ((buf (current-buffer))) + (nnheader-temp-write nil + (insert-buffer buf) + (if (and (not read-only) + (not (gnus-request-replace-article + (cdr gnus-article-current) (car gnus-article-current) + (current-buffer)))) + (error "Couldn't replace article") + ;; Update the summary buffer. + (if (and references + (equal (message-tokenize-header references " ") + (message-tokenize-header + (or (message-fetch-field "references") "") " "))) + ;; We only have to update this line. + (save-excursion + (save-restriction + (message-narrow-to-head) + (let ((head (buffer-string)) + header) + (nnheader-temp-write nil + (insert (format "211 %d Article retrieved.\n" + (cdr gnus-article-current))) + (insert head) + (insert ".\n") + (let ((nntp-server-buffer (current-buffer))) + (setq header (car (gnus-get-newsgroup-headers + (save-excursion + (set-buffer gnus-summary-buffer) + gnus-newsgroup-dependencies) + t)))) + (save-excursion + (set-buffer gnus-summary-buffer) + (gnus-data-set-header + (gnus-data-find (cdr gnus-article-current)) + header) + (gnus-summary-update-article-line + (cdr gnus-article-current) header)))))) + ;; Update threads. + (set-buffer (or buffer gnus-summary-buffer)) + (gnus-summary-update-article (cdr gnus-article-current))) + ;; Prettify the article buffer again. + (unless no-highlight + (save-excursion + (set-buffer gnus-article-buffer) + (gnus-run-hooks 'gnus-article-display-hook) + (set-buffer gnus-original-article-buffer) + (gnus-request-article + (cdr gnus-article-current) + (car gnus-article-current) (current-buffer)))) + ;; Prettify the summary buffer line. + (when (gnus-visual-p 'summary-highlight 'highlight) + (gnus-run-hooks 'gnus-visual-mark-article-hook)))))) (defun gnus-summary-edit-wash (key) "Perform editing command KEY in the article buffer." @@ -8847,7 +8850,7 @@ save those articles instead." (setq list (cdr list)))) (let ((face (cdar list))) (unless (eq face (get-text-property beg 'face)) - (gnus-put-text-property + (gnus-put-text-property-excluding-characters-with-faces beg end 'face (setq face (if (boundp face) (symbol-value face) face))) (when gnus-summary-highlight-line-function diff --git a/lisp/gnus-topic.el b/lisp/gnus-topic.el index 20961be..6880f63 100644 --- a/lisp/gnus-topic.el +++ b/lisp/gnus-topic.el @@ -31,6 +31,7 @@ (require 'gnus) (require 'gnus-group) (require 'gnus-start) +(require 'gnus-util) (defgroup gnus-topic nil "Group topics." @@ -1266,7 +1267,7 @@ If COPYP, copy the groups instead." (read-string (format "Rename %s to: " topic))))) ;; Check whether the new name exists. (when (gnus-topic-find-topology new-name) - (error "Topic '%s' already exists")) + (error "Topic '%s' already exists" new-name)) ;; "nil" is an invalid name, for reasons I'd rather not go ;; into here. Trust me. (when (equal new-name "nil") @@ -1280,7 +1281,8 @@ If COPYP, copy the groups instead." (setcar entry new-name)) (forward-line -1) (gnus-dribble-touch) - (gnus-group-list-groups))) + (gnus-group-list-groups) + (forward-line 1))) (defun gnus-topic-indent (&optional unindent) "Indent a topic -- make it a sub-topic of the previous topic. diff --git a/lisp/gnus-util.el b/lisp/gnus-util.el index 126aefd..82e7f94 100644 --- a/lisp/gnus-util.el +++ b/lisp/gnus-util.el @@ -621,10 +621,22 @@ Bind `print-quoted' and `print-readably' to t while printing." (save-restriction (goto-char beg) (while (re-search-forward "[ \t]*\n" end 'move) - (put-text-property beg (match-beginning 0) prop val) + (gnus-put-text-property beg (match-beginning 0) prop val) (setq beg (point))) - (put-text-property beg (point) prop val))))) - + (gnus-put-text-property beg (point) prop val))))) + +(defun gnus-put-text-property-excluding-characters-with-faces (beg end + prop val) + "The same as `put-text-property', but don't put props on characters with the `gnus-face' property." + (let ((b beg)) + (while (/= b end) + (when (get-text-property b 'gnus-face) + (setq b (next-single-property-change b 'gnus-face nil end))) + (when (/= b end) + (gnus-put-text-property + b (setq b (next-single-property-change b 'gnus-face nil end)) + prop val))))) + ;;; Protected and atomic operations. dmoore@ucsd.edu 21.11.1996 ;;; The primary idea here is to try to protect internal datastructures ;;; from becoming corrupted when the user hits C-g, or if a hook or diff --git a/lisp/gnus.el b/lisp/gnus.el index 468894f..7917a9e 100644 --- a/lisp/gnus.el +++ b/lisp/gnus.el @@ -250,11 +250,11 @@ is restarted, and sometimes reloaded." :link '(custom-manual "(gnus)Exiting Gnus") :group 'gnus) -(defconst gnus-version-number "6.7.7" +(defconst gnus-version-number "6.7.8" "Version number for this version of gnus.") (defconst gnus-version - (format "Semi-gnus %s (based on Gnus 5.6.20; for SEMI 1.8)" + (format "Semi-gnus %s (based on Gnus 5.6.22; for SEMI 1.8)" gnus-version-number) "Version string for this version of gnus.") diff --git a/lisp/nndoc.el b/lisp/nndoc.el index 0092ac0..c32f50f 100644 --- a/lisp/nndoc.el +++ b/lisp/nndoc.el @@ -30,6 +30,7 @@ (require 'message) (require 'nnmail) (require 'nnoo) +(require 'gnus-util) (eval-when-compile (require 'cl)) (nnoo-declare nndoc) diff --git a/lisp/pop3-fma.el b/lisp/pop3-fma.el index ddb1ef6..aa1a97f 100644 --- a/lisp/pop3-fma.el +++ b/lisp/pop3-fma.el @@ -3,7 +3,7 @@ ;; Yasuo Okabe ;; Author: Tatsuya Ichikawa ;; Yasuo OKABE -;; Version: 0.20 +;; Version: 0.21 ;; Keywords: mail , gnus , pop3 ;; ;; SPECIAL THANKS @@ -84,15 +84,14 @@ :group 'mail :group 'news) -(defconst pop3-fma-version-number "0.20") +(defconst pop3-fma-version-number "0.21") (defconst pop3-fma-codename ;; "Feel the wind" ; 0.10 ;; "My home town" ; 0.11 ;; "On the road" ; 0.12 ;; "Rock'n Roll city" ; 0.13 - "Money" ; 0.20 -;; "Midnight blue train" ; 0.xx -;; "Still 19" ; 0.xx +;; "Money" ; 0.20 + "Still 19" ; 0.21 ;; "J boy" ; 0.xx ;; "Blood line" ; 0.xx ;; "Star ring" ; 0.xx @@ -103,7 +102,7 @@ pop3-fma-codename)) (defcustom pop3-fma-spool-file-alist nil - "*Spoolfile to get mail using pop3 protocol. + "*Spool file to get mail using pop3 protocol. You should specify this variable like '( \"po:user1@mailhost1\" @@ -112,6 +111,11 @@ You should specify this variable like :group 'pop3-fma :type 'alist) +(defcustom pop3-fma-local-spool-file-alist nil + "*List of Local spool file to get mail." + :group 'pop3-fma + :type 'alist) + (defcustom pop3-fma-movemail-type 'lisp "*Type of movemail program. Lisp means `nnmail-movemail-program' is lisp function. @@ -139,6 +143,7 @@ Please do not set this valiable non-nil if you do not use Meadow.") (defvar passwd nil) (defvar str nil) (defvar pop3-fma-movemail-options pop3-fma-movemail-arguments) +(defvar spool nil) (defun pop3-fma-init-message-hook () (add-hook 'message-send-hook 'pop3-fma-message-add-header)) @@ -156,34 +161,44 @@ Please do not set this valiable non-nil if you do not use Meadow.") ;; (defun pop3-fma-movemail (inbox crashbox) "Function to move mail from INBOX on a pop3 server to file CRASHBOX." - (let ((pop3-maildrop - (substring inbox (match-end (string-match "^po:" inbox)) - (- (match-end (string-match "^.*@" inbox)) 1))) - (pop3-mailhost - (substring inbox (match-end (string-match "^.*@" inbox))))) - (let ((pop3-password - (pop3-fma-read-passwd pop3-mailhost))) - (message "Checking new mail user %s at %s..." pop3-maildrop pop3-mailhost) - (if (and (eq system-type 'windows-nt) - (eq pop3-fma-movemail-type 'exe)) - (progn - (setenv "MAILHOST" pop3-mailhost) - (if (and (not (memq pop3-password pop3-fma-movemail-arguments)) - (not (memq (concat "po:" pop3-maildrop) pop3-fma-movemail-arguments))) + (if (string-match "^po:" inbox) + (progn + (let ((pop3-maildrop + (substring inbox (match-end (string-match "^po:" inbox)) + (- (match-end (string-match "^.*@" inbox)) 1))) + (pop3-mailhost + (substring inbox (match-end (string-match "^.*@" inbox))))) + (let ((pop3-password + (pop3-fma-read-passwd pop3-mailhost))) + (message "Checking new mail user %s at %s..." pop3-maildrop pop3-mailhost) + (if (and (eq system-type 'windows-nt) + (eq pop3-fma-movemail-type 'exe)) (progn - (setq pop3-fma-movemail-arguments nil) - (setq pop3-fma-movemail-arguments - (append pop3-fma-movemail-options - (list - (concat "po:" pop3-maildrop) - crashbox - pop3-password))))) - (apply 'call-process (concat - exec-directory - pop3-fma-movemail-program) - nil nil nil - pop3-fma-movemail-arguments)) - (pop3-movemail crashbox))))) + (setenv "MAILHOST" pop3-mailhost) + (if (and (not (memq pop3-password pop3-fma-movemail-arguments)) + (not (memq (concat "po:" pop3-maildrop) pop3-fma-movemail-arguments))) + (progn + (setq pop3-fma-movemail-arguments nil) + (setq pop3-fma-movemail-arguments + (append pop3-fma-movemail-options + (list + (concat "po:" pop3-maildrop) + crashbox + pop3-password))))) + (apply 'call-process (concat + exec-directory + pop3-fma-movemail-program) + nil nil nil + pop3-fma-movemail-arguments)) + (pop3-movemail crashbox))))) + (message "Checking new mail at %s ... " inbox) + (call-process (concat exec-directory pop3-fma-movemail-program) + nil + nil + nil + inbox + crashbox) + (message "Checking new mail at %s ... done." inbox))) ;; ;; (defun pop3-fma-read-passwd (mailhost) @@ -223,7 +238,10 @@ Please do not set this valiable non-nil if you do not use Meadow.") (call-interactively 'pop3-fma-store-password))) pop3-fma-spool-file-alist) (setq nnmail-movemail-program 'pop3-fma-movemail) - (setq nnmail-spool-file pop3-fma-spool-file-alist)) +;; (setq nnmail-spool-file pop3-fma-spool-file-alist)) + (setq nnmail-spool-file (append + pop3-fma-local-spool-file-alist + pop3-fma-spool-file-alist))) ;; (defun pop3-fma-read-noecho (prompt &optional stars) "Read a single line of text from user without echoing, and return it. diff --git a/texi/ChangeLog b/texi/ChangeLog index 30092c9..980c667 100644 --- a/texi/ChangeLog +++ b/texi/ChangeLog @@ -1,6 +1,15 @@ +Mon Jun 29 21:46:13 1998 Lars Magne Ingebrigtsen + + * gnus.texi (Article Keymap): Typo. + +Sun Jun 28 17:41:10 1998 Lars Magne Ingebrigtsen + + * gnus.texi (Formatting Fonts): Typo fix. + Sat Jun 27 04:37:14 1998 Lars Magne Ingebrigtsen * gnus.texi (Mail-To-News Gateways): Addition. + (Mail-To-News Gateways): Typo. Fri Jun 26 13:33:00 1998 Yoshiki Hayashi diff --git a/texi/gnus.texi b/texi/gnus.texi index 66125f4..40a4fee 100644 --- a/texi/gnus.texi +++ b/texi/gnus.texi @@ -1,7 +1,7 @@ \input texinfo @c -*-texinfo-*- @setfilename gnus -@settitle Semi-gnus 6.7.5 Manual +@settitle Semi-gnus 6.7.8 Manual @synindex fn cp @synindex vr cp @synindex pg cp @@ -316,7 +316,7 @@ into another language, under the above conditions for modified versions. @tex @titlepage -@title Semi-gnus 6.7.5 Manual +@title Semi-gnus 6.7.8 Manual @author by Lars Magne Ingebrigtsen @page @@ -359,7 +359,7 @@ internationalization/localization and multiscript features based on MULE API. So Semi-gnus does not discriminate various language communities. Oh, if you are a Klingon, please wait Unicode Next Generation. -This manual corresponds to Semi-gnus 6.7.5. +This manual corresponds to Semi-Gnus 6.7.8 @end ifinfo @@ -2661,7 +2661,9 @@ convention (@pxref{Process/Prefix}). @kindex T D (Topic) @findex gnus-topic-remove-group Remove a group from the current topic (@code{gnus-topic-remove-group}). -This command uses the process/prefix convention +This command is mainly useful if you have the same group in several +topics and wish to remove it from one of the topics. +The command uses the process/prefix convention (@pxref{Process/Prefix}). @item T M @@ -3819,7 +3821,7 @@ This command is mainly used if you have several accounts and want to ship a mail to a different account of yours. (If you're both @code{root} and @code{postmaster} and get a mail for @code{postmaster} to the @code{root} account, you may want to resend it to -@code{postmaster}. Ordnung muß sein! +@code{postmaster}. Ordnung mu(I_(B sein! This command understands the process/prefix convention (@pxref{Process/Prefix}). @@ -7915,7 +7917,7 @@ Scroll backwards one page (@code{gnus-article-prev-page}). @kindex C-c ^ (Article) @findex gnus-article-refer-article If point is in the neighborhood of a @code{Message-ID} and you press -@kbd{r}, gnus will try to get that article from the server +@kbd{C-c ^}, Gnus will try to get that article from the server (@code{gnus-article-refer-article}). @item C-c C-m @@ -9622,7 +9624,9 @@ the five possible split syntaxes: @enumerate @item -@samp{group}: If the split is a string, that will be taken as a group name. +@samp{group}: If the split is a string, that will be taken as a group +name. Normal regexp match expansion will be done. See below for +examples. @item @var{(FIELD VALUE SPLIT)}: If the split is a list, the first element of @@ -9676,6 +9680,12 @@ substitutions in the group names), you can say things like: (any "debian-\\(\\w*\\)@@lists.debian.org" "mail.debian.\\1") @end example +If the string contains the element @samp{\&}, then the previously +matched string will be substituted. Similarly, the elements @samp{\1} +up to @samp{\9} will be substituted with the text matched by the +groupings 1 through 9. + + @node Mail and Procmail @subsection Mail and Procmail @cindex procmail @@ -10962,7 +10972,7 @@ group as read. If the search engine changes its output substantially, @code{nnweb} won't be able to parse it and will fail. One could hardly fault the Web -providers if they were to do this---their @emph{raison d'être} is to +providers if they were to do this---their @emph{raison d'$BsU(Bre} is to make money off of advertisements, not to provide services to the community. Since @code{nnweb} washes the ads off all the articles, one might think that the providers might be somewhat miffed. We'll see. @@ -11078,7 +11088,7 @@ Here's an example: @lisp (setq gnus-post-method - '(nngateway "mail2news@replay.com" + '(nngateway "mail2news@@replay.com" (nngateway-header-transformation nngateway-mail2news-header-transformation))) @end lisp @@ -13107,7 +13117,7 @@ by hand. The kill to score conversion package isn't included in Gnus by default. You can fetch it from -@file{http://www.ifi.uio.no/~larsi/ding-other/gnus-kill-to-score}. +@file{http://www.stud.ifi.uio.no/~larsi/ding-other/gnus-kill-to-score}. If your old kill files are very complex---if they contain more non-@code{gnus-kill} forms than not, you'll have to convert them by @@ -13359,7 +13369,7 @@ then this operator will return @code{false}. @item ! @itemx not -@itemx ¬ +@itemx (I,(B This logical operator only takes a single argument. It returns the logical negation of the value of its argument. @@ -13851,9 +13861,9 @@ the special @code{mouse-face} property set, which means that it will be highlighted (with @code{gnus-mouse-face}) when you put the mouse pointer over it. -Text inside the @samp{%[} and @samp{%]} specifiers will have their +Text inside the @samp{%@{} and @samp{%@}} specifiers will have their normal faces set using @code{gnus-face-0}, which is @code{bold} by -default. If you say @samp{%1[}, you'll get @code{gnus-face-1} instead, +default. If you say @samp{%1@{}, you'll get @code{gnus-face-1} instead, and so on. Create as many faces as you wish. The same goes for the @code{mouse-face} specs---you can say @samp{%3(hello%)} to have @samp{hello} mouse-highlighted with @code{gnus-mouse-face-3}. @@ -15342,7 +15352,7 @@ but at the common table.@* If you want to investigate the person responsible for this outrage, you can point your (feh!) web browser to -@file{http://www.ifi.uio.no/~larsi/}. This is also the primary +@file{http://www.stud.ifi.uio.no/~larsi/}. This is also the primary distribution point for the new and spiffy versions of Gnus, and is known as The Site That Destroys Newsrcs And Drives People Mad. @@ -15642,7 +15652,7 @@ David Moore---rewrite of @file{nnvirtual.el} and many other things. Kevin Davidson---came up with the name @dfn{ding}, so blame him. @item -François Pinard---many, many interesting and thorough bug reports, as +Fran$BmP(Bis Pinard---many, many interesting and thorough bug reports, as well as autoconf support. @end itemize @@ -15655,7 +15665,7 @@ The following people have contributed many patches and suggestions: Christopher Davis, Andrew Eskilsson, Kai Grossjohann, -David Kågedal, +David K$BiH(Bedal, Richard Pieri, Fabrice Popineau, Daniel Quinlan, @@ -15725,7 +15735,7 @@ Marc Horowitz, Gunnar Horrigmo, Richard Hoskins, Brad Howes, -François Felix Ingrand, +Fran$BmP(Bis Felix Ingrand, Ishikawa Ichiro, @c Ishikawa Lee Iverson, Iwamuro Motonori, @c Iwamuro @@ -15842,7 +15852,7 @@ actually are people who are using Gnus. Who'd'a thunk it! * ding Gnus:: New things in Gnus 5.0/5.1, the first new Gnus. * September Gnus:: The Thing Formally Known As Gnus 5.3/5.3. * Red Gnus:: Third time best---Gnus 5.4/5.5. -* Quassia Gnus:: Two times two is four, or Gnus 5.6.20. +* Quassia Gnus:: Two times two is four, or Gnus 5.6.22. @end menu These lists are, of course, just @emph{short} overviews of the @@ -16377,7 +16387,7 @@ Emphasized text can be properly fontisized: @node Quassia Gnus @subsubsection Quassia Gnus -New features in Gnus 5.6.20: +New features in Gnus 5.6.22: @itemize @bullet @@ -17145,8 +17155,8 @@ From: Jason L Tibbitts III @end example @item - tanken var at når du bruker `gnus-startup-file' som prefix (FOO) til å lete -opp en fil FOO-SERVER, FOO-SERVER.el, FOO-SERVER.eld, kan du la den være en + tanken var at n$BiS(B du bruker `gnus-startup-file' som prefix (FOO) til ’élete +opp en fil FOO-SERVER, FOO-SERVER.el, FOO-SERVER.eld, kan du la den v$BkS(Be en liste hvor du bruker hvert element i listen som FOO, istedet. da kunne man hatt forskjellige serveres startup-filer forskjellige steder. @@ -17219,8 +17229,8 @@ there was a sci.somethingelse group or section, then it should prompt for sci? first the sci.something? then sci.somethingelse?... @item -Ja, det burde være en måte å si slikt. Kanskje en ny variabel? -`gnus-use-few-score-files'? Så kunne score-regler legges til den +Ja, det burde v$BkS(Be en m$BiU(Be ’ési slikt. Kanskje en ny variabel? +`gnus-use-few-score-files'? S’ékunne score-regler legges til den "mest" lokale score-fila. F. eks. ville no-gruppene betjenes av "no.all.SCORE", osv. @@ -17553,7 +17563,7 @@ the current process mark set onto the stack. @item gnus-article-hide-pgp -Selv ville jeg nok ha valgt å slette den dersom teksten matcher +Selv ville jeg nok ha valgt ’éslette den dersom teksten matcher @example "\\(This\s+\\)?[^ ]+ has been automatically signed by" @end example @@ -17682,6 +17692,14 @@ in any other dummy thread will make gnus highlight the dummy root instead of the first article. @item +Propagate all group properties (marks, article numbers, etc) up to the +topics for displaying. + +@item +`n' in the group buffer with topics should go to the next group +with unread articles, even if that group is hidden in a topic. + +@item Solve the halting problem. @c TODO diff --git a/texi/message.texi b/texi/message.texi index 1c808dd..adb37c1 100644 --- a/texi/message.texi +++ b/texi/message.texi @@ -1,7 +1,7 @@ \input texinfo @c -*-texinfo-*- @setfilename message -@settitle Message 5.6.20 Manual +@settitle Message 5.6.22 Manual @synindex fn cp @synindex vr cp @synindex pg cp @@ -42,7 +42,7 @@ into another language, under the above conditions for modified versions. @tex @titlepage -@title Message 5.6.20 Manual +@title Message 5.6.22 Manual @author by Lars Magne Ingebrigtsen @page @@ -83,7 +83,7 @@ Message mode buffers. * Key Index:: List of Message mode keys. @end menu -This manual corresponds to Message 5.6.20. Message is distributed with +This manual corresponds to Message 5.6.22. Message is distributed with the Gnus distribution bearing the same version number as this manual has.