From: ichikawa Date: Mon, 1 Jun 1998 11:38:01 +0000 (+0000) Subject: sync up with Gnus 5.6.10 X-Git-Tag: ichikawa-199811302358~64 X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=785bef6195afe19f21e4c73d8fef7c02d50e7369;p=elisp%2Fgnus.git- sync up with Gnus 5.6.10 --- diff --git a/ChangeLog b/ChangeLog index 708dc08..55706cf 100644 --- a/ChangeLog +++ b/ChangeLog @@ -1,3 +1,7 @@ +1998-06-01 Tatsuya Ichikawa + + * Sync up with Gnus 5.6.10. + 1998-05-31 Tatsuya Ichikawa * pop3-fma.el: Remove japanese comment. diff --git a/lisp/ChangeLog b/lisp/ChangeLog index b03978a..6f797b6 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,80 @@ +Mon Jun 1 04:31:23 1998 Lars Magne Ingebrigtsen + + * gnus.el: Gnus v5.6.10 is released. + +Mon Jun 1 03:25:33 1998 Lars Magne Ingebrigtsen + + * gnus-art.el (gnus-button-alist): Recognize bare mailto buttons + for Gnus. + + * nntp.el: Replaced all `message' calls. + +Mon Jun 1 03:13:46 1998 Wolfgang Rupprecht + + * nntp.el (nntp-encode-text): Removed spurious forward-line. + +Sat May 23 19:44:43 1998 Lars Magne Ingebrigtsen + + * gnus-agent.el (gnus-agent-fetch-session): Would infloop if + opening failed. + +Tue May 19 04:11:33 1998 Yoshiki Hayashi + + * nnheader.el (nnheader-translate-file-chars): Don't change + string. + +Tue May 19 03:07:45 1998 P. E. Jareth Hein + + * gnus-util.el (gnus-dd-mmm): New version. + +Tue May 19 03:00:39 1998 Lars Magne Ingebrigtsen + + * gnus.el: Changed address. + +Tue May 12 06:12:42 1998 Lars Magne Ingebrigtsen + + * gnus-agent.el (gnus-agent-expire): Delete more. + +Sun May 10 19:08:28 1998 Lars Magne Ingebrigtsen + + * gnus-group.el (gnus-group-read-ephemeral-group): Don't add + `address'. + +Sun May 3 18:01:01 1998 Lars Magne Ingebrigtsen + + * nnmail.el (nnmail-within-headers-p): Renamed. + + * message.el (message-cancel-news): If a Sender header doesn't + exist, compare From against `message-make-from'. + +Sun May 3 15:07:25 1998 Lars Balker Rasmussen + + * gnus-agent.el (gnus-agent-save-group-info): Fix + re-search-forward params. + +Sun May 3 15:04:02 1998 Lars Magne Ingebrigtsen + + * gnus-agent.el (gnus-agent-expire): Check for the size. + +Sat May 2 01:50:20 1998 Dan Christensen + + * nnfolder.el (nnfolder-goto-article): New version. + (nnfolder-read-folder): Fix. + + * nnmail.el (nnmail-within-headers): New function. + +Sat May 2 01:36:37 1998 Lars Magne Ingebrigtsen + + * nnfolder.el (nnfolder-goto-article): Thinkotypo search arguments. + + * nnheader.el (nnheader-find-file-noselect): Also bind + `find-file-hooks' to nil. + + * nnmail.el (nnmail-process-unix-mail-format): Don't use + `find-file-noselect'. + + * gnus-group.el (gnus-group-make-menu-bar): Typo. + Fri May 1 21:59:35 1998 Lars Magne Ingebrigtsen * gnus.el: Gnus v5.6.9 is released. diff --git a/lisp/dgnushack.el b/lisp/dgnushack.el index 264ac6b..37bdb98 100644 --- a/lisp/dgnushack.el +++ b/lisp/dgnushack.el @@ -1,7 +1,7 @@ ;;; dgnushack.el --- a hack to set the load path for byte-compiling ;; Copyright (C) 1994,95,96,97,98 Free Software Foundation, Inc. -;; Author: Lars Magne Ingebrigtsen +;; Author: Lars Magne Ingebrigtsen ;; Version: 4.19 ;; Keywords: news, path diff --git a/lisp/gnus-agent.el b/lisp/gnus-agent.el index a9a1f4f..7d40b82 100644 --- a/lisp/gnus-agent.el +++ b/lisp/gnus-agent.el @@ -1,7 +1,7 @@ ;;; gnus-agent.el --- unplugged support for Semi-gnus ;; Copyright (C) 1997,98 Free Software Foundation, Inc. -;; Author: Lars Magne Ingebrigtsen +;; Author: Lars Magne Ingebrigtsen ;; This file is part of GNU Emacs. ;; GNU Emacs is free software; you can redistribute it and/or modify @@ -354,12 +354,12 @@ be a select method." ;;; (defun gnus-agent-fetch-groups (n) - "Put all new articles in the current groups into the agent." + "Put all new articles in the current groups into the Agent." (interactive "P") (gnus-group-iterate n 'gnus-agent-fetch-group)) (defun gnus-agent-fetch-group (group) - "Put all new articles in GROUP into the agent." + "Put all new articles in GROUP into the Agent." (interactive (list (gnus-group-group-name))) (unless group (error "No group on the current line")) @@ -403,7 +403,7 @@ be a select method." (error "Server already in the agent program")) (push method gnus-agent-covered-methods) (gnus-agent-write-servers) - (message "Entered %s into the agent" server))) + (message "Entered %s into the Agent" server))) (defun gnus-agent-remove-server (server) "Remove SERVER from the agent program." @@ -537,7 +537,7 @@ the actual number of articles toggled is returned." (nnheader-temp-write file (insert-file-contents file) (goto-char (point-min)) - (when (re-search-forward "^" (regexp-quote group) " " nil t) + (when (re-search-forward (concat "^" (regexp-quote group) " ") nil t) (gnus-delete-line)) (insert group " " (number-to-string (cdr active)) " " (number-to-string (car active)) "\n"))))) @@ -629,7 +629,7 @@ the actual number of articles toggled is returned." ;;; (defun gnus-agent-fetch-articles (group articles) - "Fetch ARTICLES from GROUP and put them into the agent." + "Fetch ARTICLES from GROUP and put them into the Agent." (when articles ;; Prune off articles that we have already fetched. (while (and articles @@ -662,7 +662,7 @@ the actual number of articles toggled is returned." (insert-buffer-substring nntp-server-buffer))) (copy-to-buffer nntp-server-buffer (point-min) (point-max)) (setq pos (nreverse pos))))) - ;; Then save these articles into the agent. + ;; Then save these articles into the Agent. (save-excursion (set-buffer nntp-server-buffer) (while pos @@ -877,11 +877,12 @@ the actual number of articles toggled is returned." (setq gnus-command-method (car methods)) (when (or (gnus-server-opened gnus-command-method) (gnus-open-server gnus-command-method)) - (setq groups (gnus-groups-from-server (pop methods))) + (setq groups (gnus-groups-from-server (car methods))) (gnus-agent-with-fetch (while (setq group (pop groups)) (when (<= (gnus-group-level group) gnus-agent-handle-level) - (gnus-agent-fetch-group-1 group gnus-command-method)))))) + (gnus-agent-fetch-group-1 group gnus-command-method))))) + (pop methods)) (gnus-message 6 "Finished fetching articles into the Gnus agent")))) (defun gnus-agent-fetch-group-1 (group method) @@ -892,7 +893,8 @@ the actual number of articles toggled is returned." gnus-use-cache articles score arts category predicate info marks score-param) ;; Fetch headers. - (when (and (setq articles (gnus-list-of-unread-articles group)) + (when (and (or (gnus-active group) (gnus-activate-group group)) + (setq articles (gnus-list-of-unread-articles group)) (gnus-agent-fetch-headers group articles)) ;; Parse them and see which articles we want to fetch. (setq gnus-newsgroup-dependencies @@ -1275,7 +1277,7 @@ The following commands are available: (setq gnus-agent-current-history (setq history (gnus-agent-history-buffer)))) (goto-char (point-min)) - (unless (zerop (buffer-size)) + (when (> (buffer-size) 1) (goto-char (point-min)) (while (not (eobp)) (skip-chars-forward "^\t") @@ -1306,12 +1308,14 @@ The following commands are available: (cdr (assq 'dormant (gnus-info-marks info))))) nov-file (gnus-agent-article-name ".overview" group)) + (gnus-agent-load-alist group) (gnus-message 5 "Expiring articles in %s" group) (set-buffer overview) (erase-buffer) (when (file-exists-p nov-file) (nnheader-insert-file-contents nov-file)) (goto-char (point-min)) + (setq article 0) (while (setq elem (pop articles)) (setq article (car elem)) (when (or (null low) @@ -1321,8 +1325,15 @@ The following commands are available: (not (memq article marked)))) ;; Find and nuke the NOV line. (while (and (not (eobp)) - (< (setq art (read (current-buffer))) article)) - (forward-line 1)) + (or (not (numberp + (setq art (read (current-buffer))))) + (< art article))) + (if (file-exists-p + (gnus-agent-article-name + (number-to-string article) group)) + (forward-line 1) + ;; Remove old NOV lines that have no articles. + (gnus-delete-line))) (if (or (eobp) (/= art article)) (beginning-of-line) @@ -1334,7 +1345,26 @@ The following commands are available: (delete-file file)) ;; Schedule the history line for nuking. (push (cdr elem) histories))) - (write-region (point-min) (point-max) nov-file nil 'silent)) + (write-region (point-min) (point-max) nov-file nil 'silent) + ;; Delete the unwanted entries in the alist. + (setq gnus-agent-article-alist + (sort gnus-agent-article-alist 'car-less-than-car)) + (let* ((alist gnus-agent-article-alist) + (prev (cons nil alist)) + (first prev)) + (while (and alist + (<= (caar alist) article)) + (if (or (not (cdar alist)) + (not (file-exists-p + (gnus-agent-article-name + (number-to-string + (caar alist)) + group)))) + (setcdr prev (setq alist (cdr alist))) + (setq prev alist + alist (cdr alist)))) + (setq gnus-agent-article-alist (cdr first))) + (gnus-agent-save-alist group)) expiry-hashtb) (set-buffer history) (setq histories (nreverse (sort histories '<))) diff --git a/lisp/gnus-art.el b/lisp/gnus-art.el index 7ff92f7..d2c3e0d 100644 --- a/lisp/gnus-art.el +++ b/lisp/gnus-art.el @@ -1,7 +1,7 @@ ;;; gnus-art.el --- article mode commands for Semi-gnus ;; Copyright (C) 1996,97,98 Free Software Foundation, Inc. -;; Author: Lars Magne Ingebrigtsen +;; Author: Lars Magne Ingebrigtsen ;; MORIOKA Tomohiko ;; Keywords: mail, news, MIME @@ -2686,6 +2686,7 @@ groups." ("\\bin\\( +article\\| +message\\)? +\\(<\\([^\n @<>]+@[^\n @<>]+\\)>\\)" 2 t gnus-button-message-id 3) ("\\( \n\t]+\\)>" 0 t gnus-url-mailto 2) + ("mailto:\\([a-zA-Z.-@_+0-9%]+\\)" 0 t gnus-url-mailto 2) ("\\bmailto:\\([^ \n\t]+\\)" 0 t gnus-url-mailto 1) ;; This is how URLs _should_ be embedded in text... ("]*\\)>" 0 t gnus-button-embedded-url 1) diff --git a/lisp/gnus-async.el b/lisp/gnus-async.el index c703caa..8da43cc 100644 --- a/lisp/gnus-async.el +++ b/lisp/gnus-async.el @@ -1,7 +1,7 @@ ;;; gnus-async.el --- asynchronous support for Gnus ;; Copyright (C) 1996,97,98 Free Software Foundation, Inc. -;; Author: Lars Magne Ingebrigtsen +;; Author: Lars Magne Ingebrigtsen ;; Keywords: news ;; This file is part of GNU Emacs. diff --git a/lisp/gnus-bcklg.el b/lisp/gnus-bcklg.el index 457770f..d9934e5 100644 --- a/lisp/gnus-bcklg.el +++ b/lisp/gnus-bcklg.el @@ -1,7 +1,7 @@ ;;; gnus-bcklg.el --- backlog functions for Gnus ;; Copyright (C) 1996,97,98 Free Software Foundation, Inc. -;; Author: Lars Magne Ingebrigtsen +;; Author: Lars Magne Ingebrigtsen ;; Keywords: news ;; This file is part of GNU Emacs. diff --git a/lisp/gnus-cache.el b/lisp/gnus-cache.el index 430a452..a725a9a 100644 --- a/lisp/gnus-cache.el +++ b/lisp/gnus-cache.el @@ -1,7 +1,7 @@ ;;; gnus-cache.el --- cache interface for Gnus ;; Copyright (C) 1995,96,97,98 Free Software Foundation, Inc. -;; Author: Lars Magne Ingebrigtsen +;; Author: Lars Magne Ingebrigtsen ;; Keywords: news ;; This file is part of GNU Emacs. diff --git a/lisp/gnus-demon.el b/lisp/gnus-demon.el index f3968ea..594bc9f 100644 --- a/lisp/gnus-demon.el +++ b/lisp/gnus-demon.el @@ -1,7 +1,7 @@ ;;; gnus-demon.el --- daemonic Gnus behaviour ;; Copyright (C) 1995,96,97,98 Free Software Foundation, Inc. -;; Author: Lars Magne Ingebrigtsen +;; Author: Lars Magne Ingebrigtsen ;; Keywords: news ;; This file is part of GNU Emacs. diff --git a/lisp/gnus-draft.el b/lisp/gnus-draft.el index 7b7c6fb..fce8744 100644 --- a/lisp/gnus-draft.el +++ b/lisp/gnus-draft.el @@ -1,7 +1,7 @@ ;;; gnus-draft.el --- draft message support for Semi-gnus ;; Copyright (C) 1997,98 Free Software Foundation, Inc. -;; Author: Lars Magne Ingebrigtsen +;; Author: Lars Magne Ingebrigtsen ;; MORIOKA Tomohiko ;; Keywords: mail, news, MIME, offline diff --git a/lisp/gnus-dup.el b/lisp/gnus-dup.el index 3fd5795..6958f02 100644 --- a/lisp/gnus-dup.el +++ b/lisp/gnus-dup.el @@ -1,7 +1,7 @@ ;;; gnus-dup.el --- suppression of duplicate articles in Gnus ;; Copyright (C) 1996,97,98 Free Software Foundation, Inc. -;; Author: Lars Magne Ingebrigtsen +;; Author: Lars Magne Ingebrigtsen ;; Keywords: news ;; This file is part of GNU Emacs. diff --git a/lisp/gnus-eform.el b/lisp/gnus-eform.el index b0ff413..ff35a42 100644 --- a/lisp/gnus-eform.el +++ b/lisp/gnus-eform.el @@ -1,7 +1,7 @@ ;;; gnus-eform.el --- a mode for editing forms for Gnus ;; Copyright (C) 1996,97,98 Free Software Foundation, Inc. -;; Author: Lars Magne Ingebrigtsen +;; Author: Lars Magne Ingebrigtsen ;; Keywords: news ;; This file is part of GNU Emacs. diff --git a/lisp/gnus-ems.el b/lisp/gnus-ems.el index 734723a..1404cad 100644 --- a/lisp/gnus-ems.el +++ b/lisp/gnus-ems.el @@ -1,7 +1,7 @@ ;;; gnus-ems.el --- functions for making Semi-gnus work under different Emacsen ;; Copyright (C) 1995,96,97,98 Free Software Foundation, Inc. -;; Author: Lars Magne Ingebrigtsen +;; Author: Lars Magne Ingebrigtsen ;; Tatsuya Ichikawa ;; Keywords: news diff --git a/lisp/gnus-group.el b/lisp/gnus-group.el index 78b4a7a..96c28a8 100644 --- a/lisp/gnus-group.el +++ b/lisp/gnus-group.el @@ -1,7 +1,7 @@ ;;; gnus-group.el --- group mode commands for Gnus ;; Copyright (C) 1996,97,98 Free Software Foundation, Inc. -;; Author: Lars Magne Ingebrigtsen +;; Author: Lars Magne Ingebrigtsen ;; Keywords: news ;; This file is part of GNU Emacs. @@ -711,7 +711,7 @@ ticked: The number of ticked articles." (fboundp 'gnus-soup-pack-packet)] ["Pack packet" gnus-soup-pack-packet (fboundp 'gnus-soup-pack-packet)] ["Save areas" gnus-soup-save-areas (fboundp 'gnus-soup-pack-packet)] - ["Brew SOUP" gnus-soup-brew-soup (fboundp 'gnus-soup-pack-packet)]) + ["Brew SOUP" gnus-group-brew-soup (fboundp 'gnus-soup-pack-packet)]) ["Send a bug report" gnus-bug t] ["Send a mail" gnus-group-mail t] ["Post an article..." gnus-group-post-news t] @@ -1585,14 +1585,14 @@ Return the name of the group is selection was successful." ;; Transform the select method into a unique server. (when (stringp method) (setq method (gnus-server-to-method method))) - (let ((saddr (intern (format "%s-address" (car method))))) - (setq method (gnus-copy-sequence method)) - (require (car method)) - (when (boundp saddr) - (unless (assq saddr method) - (nconc method `((,saddr ,(cadr method)))) - (setf (cadr method) (format "%s-%d" (cadr method) - (incf gnus-ephemeral-group-server)))))) +;;; (let ((saddr (intern (format "%s-address" (car method))))) +;;; (setq method (gnus-copy-sequence method)) +;;; (require (car method)) +;;; (when (boundp saddr) +;;; (unless (assq saddr method) +;;; (nconc method `((,saddr ,(cadr method)))) +;;; (setf (cadr method) (format "%s-%d" (cadr method) +;;; (incf gnus-ephemeral-group-server)))))) (let ((group (if (gnus-group-foreign-p group) group (gnus-group-prefixed-name group method)))) (gnus-sethash diff --git a/lisp/gnus-int.el b/lisp/gnus-int.el index f8acea9..3246bb4 100644 --- a/lisp/gnus-int.el +++ b/lisp/gnus-int.el @@ -1,7 +1,7 @@ ;;; gnus-int.el --- backend interface functions for Gnus ;; Copyright (C) 1996,97,98 Free Software Foundation, Inc. -;; Author: Lars Magne Ingebrigtsen +;; Author: Lars Magne Ingebrigtsen ;; Keywords: news ;; This file is part of GNU Emacs. diff --git a/lisp/gnus-kill.el b/lisp/gnus-kill.el index 9773710..40d94d4 100644 --- a/lisp/gnus-kill.el +++ b/lisp/gnus-kill.el @@ -2,7 +2,7 @@ ;; Copyright (C) 1995,96,97,98 Free Software Foundation, Inc. ;; Author: Masanobu UMEDA -;; Lars Magne Ingebrigtsen +;; Lars Magne Ingebrigtsen ;; Keywords: news ;; This file is part of GNU Emacs. diff --git a/lisp/gnus-logic.el b/lisp/gnus-logic.el index 8405e19..f2913f1 100644 --- a/lisp/gnus-logic.el +++ b/lisp/gnus-logic.el @@ -1,7 +1,7 @@ ;;; gnus-logic.el --- advanced scoring code for Gnus ;; Copyright (C) 1996,97,98 Free Software Foundation, Inc. -;; Author: Lars Magne Ingebrigtsen +;; Author: Lars Magne Ingebrigtsen ;; Keywords: news ;; This file is part of GNU Emacs. diff --git a/lisp/gnus-mh.el b/lisp/gnus-mh.el index 84487f9..3960408 100644 --- a/lisp/gnus-mh.el +++ b/lisp/gnus-mh.el @@ -2,7 +2,7 @@ ;; Copyright (C) 1994,95,96,97,98 Free Software Foundation, Inc. ;; Author: Masanobu UMEDA -;; Lars Magne Ingebrigtsen +;; Lars Magne Ingebrigtsen ;; Keywords: news ;; This file is part of GNU Emacs. diff --git a/lisp/gnus-move.el b/lisp/gnus-move.el index cbf0346..f676783 100644 --- a/lisp/gnus-move.el +++ b/lisp/gnus-move.el @@ -1,7 +1,7 @@ ;;; gnus-move.el --- commands for moving Gnus from one server to another ;; Copyright (C) 1996,97,98 Free Software Foundation, Inc. -;; Author: Lars Magne Ingebrigtsen +;; Author: Lars Magne Ingebrigtsen ;; Keywords: news ;; This file is part of GNU Emacs. diff --git a/lisp/gnus-msg.el b/lisp/gnus-msg.el index 824c191..ecca916 100644 --- a/lisp/gnus-msg.el +++ b/lisp/gnus-msg.el @@ -2,7 +2,7 @@ ;; Copyright (C) 1995,96,97,98 Free Software Foundation, Inc. ;; Author: Masanobu UMEDA -;; Lars Magne Ingebrigtsen +;; Lars Magne Ingebrigtsen ;; MORIOKA Tomohiko ;; Keywords: mail, news, MIME diff --git a/lisp/gnus-nocem.el b/lisp/gnus-nocem.el index 4b761bc..c7dc5be 100644 --- a/lisp/gnus-nocem.el +++ b/lisp/gnus-nocem.el @@ -1,7 +1,7 @@ ;;; gnus-nocem.el --- NoCeM pseudo-cancellation treatment ;; Copyright (C) 1995,96,97,98 Free Software Foundation, Inc. -;; Author: Lars Magne Ingebrigtsen +;; Author: Lars Magne Ingebrigtsen ;; Keywords: news ;; This file is part of GNU Emacs. diff --git a/lisp/gnus-range.el b/lisp/gnus-range.el index efebc35..799e883 100644 --- a/lisp/gnus-range.el +++ b/lisp/gnus-range.el @@ -1,7 +1,7 @@ ;;; gnus-range.el --- range and sequence functions for Gnus ;; Copyright (C) 1996,97,98 Free Software Foundation, Inc. -;; Author: Lars Magne Ingebrigtsen +;; Author: Lars Magne Ingebrigtsen ;; Keywords: news ;; This file is part of GNU Emacs. diff --git a/lisp/gnus-salt.el b/lisp/gnus-salt.el index 4e9385b..1efaa60 100644 --- a/lisp/gnus-salt.el +++ b/lisp/gnus-salt.el @@ -1,7 +1,7 @@ ;;; gnus-salt.el --- alternate summary mode interfaces for Gnus ;; Copyright (C) 1996,97,98 Free Software Foundation, Inc. -;; Author: Lars Magne Ingebrigtsen +;; Author: Lars Magne Ingebrigtsen ;; Keywords: news ;; This file is part of GNU Emacs. diff --git a/lisp/gnus-score.el b/lisp/gnus-score.el index 8a1dfec..0628fd5 100644 --- a/lisp/gnus-score.el +++ b/lisp/gnus-score.el @@ -2,7 +2,7 @@ ;; Copyright (C) 1995,96,97,98 Free Software Foundation, Inc. ;; Author: Per Abrahamsen -;; Lars Magne Ingebrigtsen +;; Lars Magne Ingebrigtsen ;; Keywords: news ;; This file is part of GNU Emacs. diff --git a/lisp/gnus-soup.el b/lisp/gnus-soup.el index 43887f0..8e92821 100644 --- a/lisp/gnus-soup.el +++ b/lisp/gnus-soup.el @@ -2,7 +2,7 @@ ;; Copyright (C) 1995,96,97,98 Free Software Foundation, Inc. ;; Author: Per Abrahamsen -;; Lars Magne Ingebrigtsen +;; Lars Magne Ingebrigtsen ;; Keywords: news, mail ;; This file is part of GNU Emacs. diff --git a/lisp/gnus-spec.el b/lisp/gnus-spec.el index 00bfcca..138dff8 100644 --- a/lisp/gnus-spec.el +++ b/lisp/gnus-spec.el @@ -1,7 +1,7 @@ ;;; gnus-spec.el --- format spec functions for Gnus ;; Copyright (C) 1996,97,98 Free Software Foundation, Inc. -;; Author: Lars Magne Ingebrigtsen +;; Author: Lars Magne Ingebrigtsen ;; Keywords: news ;; This file is part of GNU Emacs. diff --git a/lisp/gnus-srvr.el b/lisp/gnus-srvr.el index 22089c1..24e9bfd 100644 --- a/lisp/gnus-srvr.el +++ b/lisp/gnus-srvr.el @@ -1,7 +1,7 @@ ;;; gnus-srvr.el --- virtual server support for Gnus ;; Copyright (C) 1995,96,97,98 Free Software Foundation, Inc. -;; Author: Lars Magne Ingebrigtsen +;; Author: Lars Magne Ingebrigtsen ;; Keywords: news ;; This file is part of GNU Emacs. diff --git a/lisp/gnus-start.el b/lisp/gnus-start.el index 5d818ac..d83f15f 100644 --- a/lisp/gnus-start.el +++ b/lisp/gnus-start.el @@ -1,7 +1,7 @@ ;;; gnus-start.el --- startup functions for Gnus ;; Copyright (C) 1996,97,98 Free Software Foundation, Inc. -;; Author: Lars Magne Ingebrigtsen +;; Author: Lars Magne Ingebrigtsen ;; Keywords: news ;; This file is part of GNU Emacs. diff --git a/lisp/gnus-sum.el b/lisp/gnus-sum.el index e665fcb..89ea8aa 100644 --- a/lisp/gnus-sum.el +++ b/lisp/gnus-sum.el @@ -1,7 +1,7 @@ ;;; gnus-sum.el --- summary mode commands for Semi-gnus ;; Copyright (C) 1996,97,98 Free Software Foundation, Inc. -;; Author: Lars Magne Ingebrigtsen +;; Author: Lars Magne Ingebrigtsen ;; MORIOKA Tomohiko ;; Keywords: mail, news, MIME diff --git a/lisp/gnus-topic.el b/lisp/gnus-topic.el index 178bcb9..a3d239e 100644 --- a/lisp/gnus-topic.el +++ b/lisp/gnus-topic.el @@ -2,7 +2,7 @@ ;; Copyright (C) 1995,96,97,98 Free Software Foundation, Inc. ;; Author: Ilja Weis -;; Lars Magne Ingebrigtsen +;; Lars Magne Ingebrigtsen ;; Keywords: news ;; This file is part of GNU Emacs. diff --git a/lisp/gnus-undo.el b/lisp/gnus-undo.el index ee75857..90cf174 100644 --- a/lisp/gnus-undo.el +++ b/lisp/gnus-undo.el @@ -1,7 +1,7 @@ ;;; gnus-undo.el --- minor mode for undoing in Gnus ;; Copyright (C) 1996,97,98 Free Software Foundation, Inc. -;; Author: Lars Magne Ingebrigtsen +;; Author: Lars Magne Ingebrigtsen ;; Keywords: news ;; This file is part of GNU Emacs. diff --git a/lisp/gnus-util.el b/lisp/gnus-util.el index c6314e7..e375f42 100644 --- a/lisp/gnus-util.el +++ b/lisp/gnus-util.el @@ -1,7 +1,7 @@ ;;; gnus-util.el --- utility functions for Semi-gnus ;; Copyright (C) 1996,97,98 Free Software Foundation, Inc. -;; Author: Lars Magne Ingebrigtsen +;; Author: Lars Magne Ingebrigtsen ;; Keywords: mail, news, MIME ;; This file is part of GNU Emacs. @@ -340,25 +340,22 @@ (yes-or-no-p prompt) (message ""))) -;; I suspect there's a better way, but I haven't taken the time to do -;; it yet. -erik selberg@cs.washington.edu (defun gnus-dd-mmm (messy-date) "Return a string like DD-MMM from a big messy string" - (if (equal messy-date "") - "??-???" - (let ((datevec (ignore-errors (timezone-parse-date messy-date)))) - (if (not datevec) - "??-???" - (format "%2s-%s" - (condition-case () - ;; Make sure leading zeroes are stripped. - (number-to-string (string-to-number (aref datevec 2))) - (error "??")) - (capitalize - (or (car - (nth (1- (string-to-number (aref datevec 1))) - timezone-months-assoc)) - "???"))))))) + (let ((datevec (ignore-errors (timezone-parse-date messy-date)))) + (if (or (not datevec) + (string-equal "0" (aref datevec 1))) + "??-???" + (format "%2s-%s" + (condition-case () + ;; Make sure leading zeroes are stripped. + (number-to-string (string-to-number (aref datevec 2))) + (error "??")) + (capitalize + (or (car + (nth (1- (string-to-number (aref datevec 1))) + timezone-months-assoc)) + "???")))))) (defmacro gnus-date-get-time (date) "Convert DATE string to Emacs time. diff --git a/lisp/gnus-uu.el b/lisp/gnus-uu.el index 1caef47..b341583 100644 --- a/lisp/gnus-uu.el +++ b/lisp/gnus-uu.el @@ -1,7 +1,7 @@ ;;; gnus-uu.el --- extract (uu)encoded files in Gnus ;; Copyright (C) 1985,86,87,93,94,95,96,97,98 Free Software Foundation, Inc. -;; Author: Lars Magne Ingebrigtsen +;; Author: Lars Magne Ingebrigtsen ;; Created: 2 Oct 1993 ;; Keyword: news diff --git a/lisp/gnus-win.el b/lisp/gnus-win.el index f395d5a..5c4eb52 100644 --- a/lisp/gnus-win.el +++ b/lisp/gnus-win.el @@ -1,7 +1,7 @@ ;;; gnus-win.el --- window configuration functions for Gnus ;; Copyright (C) 1996,97,98 Free Software Foundation, Inc. -;; Author: Lars Magne Ingebrigtsen +;; Author: Lars Magne Ingebrigtsen ;; Keywords: news ;; This file is part of GNU Emacs. diff --git a/lisp/gnus-xmas.el b/lisp/gnus-xmas.el index bb0e475..9d3d239 100644 --- a/lisp/gnus-xmas.el +++ b/lisp/gnus-xmas.el @@ -1,7 +1,7 @@ ;;; gnus-xmas.el --- Gnus functions for XEmacs ;; Copyright (C) 1995,96,97,98 Free Software Foundation, Inc. -;; Author: Lars Magne Ingebrigtsen +;; Author: Lars Magne Ingebrigtsen ;; Keywords: news ;; This file is part of GNU Emacs. diff --git a/lisp/gnus.el b/lisp/gnus.el index af28407..0c7a4ba 100644 --- a/lisp/gnus.el +++ b/lisp/gnus.el @@ -2,7 +2,7 @@ ;; Copyright (C) 1987,88,89,90,93,94,95,96,97,98 Free Software Foundation, Inc. ;; Author: Masanobu UMEDA -;; Lars Magne Ingebrigtsen +;; Lars Magne Ingebrigtsen ;; Keywords: news, mail ;; This file is part of GNU Emacs. @@ -250,11 +250,11 @@ is restarted, and sometimes reloaded." :link '(custom-manual "(gnus)Exiting Gnus") :group 'gnus) -(defconst gnus-version-number "6.3.2" +(defconst gnus-version-number "6.3.3i" "Version number for this version of gnus.") (defconst gnus-version - (format "Semi-gnus %s (based on Gnus 5.6.9; for SEMI 1.4)" + (format "Semi-gnus %s (based on Gnus 5.6.10; for SEMI 1.4)" gnus-version-number) "Version string for this version of gnus.") diff --git a/lisp/message.el b/lisp/message.el index 4aa804b..3b6d098 100644 --- a/lisp/message.el +++ b/lisp/message.el @@ -1,7 +1,7 @@ ;;; message.el --- composing mail and news messages ;; Copyright (C) 1996,97,98 Free Software Foundation, Inc. -;; Author: Lars Magne Ingebrigtsen +;; Author: Lars Magne Ingebrigtsen ;; MORIOKA Tomohiko ;; Keywords: mail, news, MIME @@ -3606,10 +3606,14 @@ responses here are directed to other newsgroups.")) message-id (message-fetch-field "message-id" t) distribution (message-fetch-field "distribution"))) ;; Make sure that this article was written by the user. - (unless (string-equal - (downcase - (or sender (cadr (std11-extract-address-components from)))) - (downcase (message-make-address))) + (unless (or (and sender + (string-equal + (downcase sender) + (downcase (message-make-sender)))) + (string-equal + (downcase (cadr (mail-extract-address-components from))) + (downcase (cadr (mail-extract-address-components + (message-make-from)))))) (error "This article is not yours")) ;; Make control message. (setq buf (set-buffer (get-buffer-create " *message cancel*"))) diff --git a/lisp/messagexmas.el b/lisp/messagexmas.el index 73f4cd4..7e3edd3 100644 --- a/lisp/messagexmas.el +++ b/lisp/messagexmas.el @@ -1,7 +1,7 @@ ;;; messagexmas.el --- XEmacs extensions to message ;; Copyright (C) 1996,97,98 Free Software Foundation, Inc. -;; Author: Lars Magne Ingebrigtsen +;; Author: Lars Magne Ingebrigtsen ;; Keywords: mail, news ;; This file is part of GNU Emacs. diff --git a/lisp/messcompat.el b/lisp/messcompat.el index d363700..337ab6f 100644 --- a/lisp/messcompat.el +++ b/lisp/messcompat.el @@ -1,7 +1,7 @@ ;;; messcompat.el --- making message mode compatible with mail mode ;; Copyright (C) 1996,97,98 Free Software Foundation, Inc. -;; Author: Lars Magne Ingebrigtsen +;; Author: Lars Magne Ingebrigtsen ;; Keywords: mail, news ;; This file is part of GNU Emacs. diff --git a/lisp/nnagent.el b/lisp/nnagent.el index 00af2e2..90667cb 100644 --- a/lisp/nnagent.el +++ b/lisp/nnagent.el @@ -1,7 +1,7 @@ ;;; nnagent.el --- offline backend for Gnus ;; Copyright (C) 1997,98 Free Software Foundation, Inc. -;; Author: Lars Magne Ingebrigtsen +;; Author: Lars Magne Ingebrigtsen ;; Keywords: news, mail ;; This file is part of GNU Emacs. diff --git a/lisp/nnbabyl.el b/lisp/nnbabyl.el index 96cf1c5..def1e0c 100644 --- a/lisp/nnbabyl.el +++ b/lisp/nnbabyl.el @@ -1,7 +1,7 @@ ;;; nnbabyl.el --- rmail mbox access for Gnus ;; Copyright (C) 1995,96,97,98 Free Software Foundation, Inc. -;; Author: Lars Magne Ingebrigtsen +;; Author: Lars Magne Ingebrigtsen ;; Masanobu UMEDA ;; Keywords: news, mail @@ -32,7 +32,7 @@ (require 'nnheader) (condition-case nil (require 'rmail) - (t (message "Ignore rmail errors from this file, you don't have rmail"))) + (t (nnheader-message 5 "Ignore rmail errors from this file, you don't have rmail"))) (require 'nnmail) (require 'nnoo) (eval-when-compile (require 'cl)) @@ -645,7 +645,7 @@ (when (buffer-modified-p (current-buffer)) (save-buffer)) (nnmail-save-active nnbabyl-group-alist nnbabyl-active-file) - (message "")))) + (nnheader-message 5 "")))) (provide 'nnbabyl) diff --git a/lisp/nndb.el b/lisp/nndb.el index 032d7c0..0a0f3ef 100644 --- a/lisp/nndb.el +++ b/lisp/nndb.el @@ -195,7 +195,7 @@ article was posted to nndb") (nntp-send-command "^[23].*\n" "X-DELETE" delete-list)) ) - (message "") + (nnheader-message 5 "") (nconc rest articles))) (defun nndb-get-remote-expire-response () @@ -297,7 +297,7 @@ Optional LAST is ignored." (or (string-match "^\\([0-9]+\\)" msg) (error "nndb: %s" msg)) (setq art (substring msg (match-beginning 1) (match-end 1))) - (message "nndb: accepted %s" art) + (nnheader-message 5 "nndb: accepted %s" art) (list art))) (deffoo nndb-request-replace-article (article group buffer) diff --git a/lisp/nndir.el b/lisp/nndir.el index 968637d..d9e5c56 100644 --- a/lisp/nndir.el +++ b/lisp/nndir.el @@ -1,7 +1,7 @@ ;;; nndir.el --- single directory newsgroup access for Gnus ;; Copyright (C) 1995,96,97,98 Free Software Foundation, Inc. -;; Author: Lars Magne Ingebrigtsen +;; Author: Lars Magne Ingebrigtsen ;; Keywords: news ;; This file is part of GNU Emacs. diff --git a/lisp/nndoc.el b/lisp/nndoc.el index 6440eb2..96b45d5 100644 --- a/lisp/nndoc.el +++ b/lisp/nndoc.el @@ -1,7 +1,7 @@ ;;; nndoc.el --- single file access for Gnus ;; Copyright (C) 1995,96,97,98 Free Software Foundation, Inc. -;; Author: Lars Magne Ingebrigtsen +;; Author: Lars Magne Ingebrigtsen ;; Masanobu UMEDA ;; Keywords: news diff --git a/lisp/nndraft.el b/lisp/nndraft.el index e410ef5..f7182a5 100644 --- a/lisp/nndraft.el +++ b/lisp/nndraft.el @@ -1,7 +1,7 @@ ;;; nndraft.el --- draft article access for Gnus ;; Copyright (C) 1995,96,97,98 Free Software Foundation, Inc. -;; Author: Lars Magne Ingebrigtsen +;; Author: Lars Magne Ingebrigtsen ;; Keywords: news ;; This file is part of GNU Emacs. diff --git a/lisp/nneething.el b/lisp/nneething.el index 828d122..97f5d2f 100644 --- a/lisp/nneething.el +++ b/lisp/nneething.el @@ -1,7 +1,7 @@ ;;; nneething.el --- arbitrary file access for Gnus ;; Copyright (C) 1995,96,97,98 Free Software Foundation, Inc. -;; Author: Lars Magne Ingebrigtsen +;; Author: Lars Magne Ingebrigtsen ;; Masanobu UMEDA ;; Keywords: news, mail @@ -103,11 +103,11 @@ If this variable is nil, no files will be excluded.") (and large (zerop (% count 20)) - (message "nneething: Receiving headers... %d%%" + (nnheader-message 5 "nneething: Receiving headers... %d%%" (/ (* count 100) number)))) (when large - (message "nneething: Receiving headers...done")) + (nnheader-message 5 "nneething: Receiving headers...done")) (nnheader-fold-continuation-lines) 'headers)))) diff --git a/lisp/nnfolder.el b/lisp/nnfolder.el index 3f8811f..11cfcd4 100644 --- a/lisp/nnfolder.el +++ b/lisp/nnfolder.el @@ -2,7 +2,7 @@ ;; Copyright (C) 1995,96,97,98 Free Software Foundation, Inc. ;; Author: Scott Byer -;; Lars Magne Ingebrigtsen +;; Lars Magne Ingebrigtsen ;; Masanobu UMEDA ;; Keywords: mail @@ -476,34 +476,27 @@ time saver for large mailboxes.") (defun nnfolder-goto-article (article) "Place point at the start of the headers of ARTICLE. -ARTICLE can be an article number or a Message-ID." +ARTICLE can be an article number or a Message-ID. +Returns t if successful, nil otherwise." (let ((art-string (nnfolder-article-string article)) - end-search end start beg) + start found) + ;; It is likely that we are at or before the delimiter line. + ;; We therefore go to the end of the previous line, and start + ;; searching from there. (beginning-of-line) (unless (bobp) (forward-char -1)) (setq start (point)) - (while (and (not end-search) - (search-forward art-string nil t)) - (setq end (point)) - (nnmail-search-unix-mail-delim-backward) - (setq beg (point)) - (when (and (search-forward "\n\n" nil end) - (search-backward art-string nil beg)) - (setq end-search 'found) - (goto-char beg))) - (unless end-search + ;; First search forward. + (while (and (setq found (search-forward art-string nil t)) + (not (nnmail-within-headers-p)))) + ;; If unsuccessful, search backward from where we started, + (unless found (goto-char start) - (while (and (not end-search) - (search-backward art-string nil t)) - (setq end (point)) - (nnmail-search-unix-mail-delim-backward) - (setq beg (point)) - (when (and (search-forward "\n\n" nil end) - (search-backward art-string nil beg)) - (setq end-search 'found) - (goto-char beg)))) - (eq end-search 'found))) + (while (and (setq found (search-backward art-string nil t)) + (not (nnmail-within-headers-p))))) + (when found + (nnmail-search-unix-mail-delim-backward)))) (defun nnfolder-delete-mail (&optional force leave-delim) "Delete the message that point is in." @@ -713,8 +706,9 @@ ARTICLE can be an article number or a Message-ID." (while (and (search-forward marker nil t) (re-search-forward number nil t)) (let ((newnum (string-to-number (match-string 0)))) - (setq maxid (max maxid newnum)) - (setq minid (min minid newnum)))) + (if (nnmail-within-headers-p) + (setq maxid (max maxid newnum) + minid (min minid newnum))))) (setcar active (max 1 (min minid maxid))) (setcdr active (max maxid (cdr active))) (goto-char (point-min))) @@ -788,7 +782,7 @@ ARTICLE can be an article number or a Message-ID." (nnfolder-possibly-change-folder file) (nnfolder-possibly-change-group file) (nnfolder-close-group file)))) - (message ""))) + (nnheader-message 5 ""))) (defun nnfolder-group-pathname (group) "Make pathname for GROUP." diff --git a/lisp/nngateway.el b/lisp/nngateway.el index 6dd6361..909e4f8 100644 --- a/lisp/nngateway.el +++ b/lisp/nngateway.el @@ -1,7 +1,7 @@ ;;; nngateway.el --- posting news via mail gateways ;; Copyright (C) 1996,97,98 Free Software Foundation, Inc. -;; Author: Lars Magne Ingebrigtsen +;; Author: Lars Magne Ingebrigtsen ;; Keywords: news, mail ;; This file is part of GNU Emacs. diff --git a/lisp/nnheader.el b/lisp/nnheader.el index dc21b7f..cffbedb 100644 --- a/lisp/nnheader.el +++ b/lisp/nnheader.el @@ -2,7 +2,7 @@ ;; Copyright (C) 1987,88,89,90,93,94,95,96,97,98 Free Software Foundation, Inc. ;; Author: Masanobu UMEDA -;; Lars Magne Ingebrigtsen +;; Lars Magne Ingebrigtsen ;; Keywords: news ;; This file is part of GNU Emacs. @@ -605,7 +605,7 @@ If FULL, translate everything." trans leaf path len) (if full ;; Do complete translation. - (setq leaf file + (setq leaf (copy-sequence file) path "") ;; We translate -- but only the file name. We leave the directory ;; alone. @@ -636,9 +636,9 @@ The first string in ARGS can be a format string." (defun nnheader-get-report (backend) "Get the most recent report from BACKEND." (condition-case () - (message "%s" (symbol-value (intern (format "%s-status-string" + (nnheader-message 5 "%s" (symbol-value (intern (format "%s-status-string" backend)))) - (error (message "")))) + (error (nnheader-message 5 "")))) (defun nnheader-insert (format &rest args) "Clear the communication buffer and insert FORMAT and ARGS into the buffer. @@ -783,6 +783,7 @@ find-file-hooks, etc. (default-major-mode 'fundamental-mode) (enable-local-variables nil) (after-insert-file-functions nil) + (find-file-hooks nil) (coding-system-for-read nnheader-file-coding-system)) (apply 'find-file-noselect args))) diff --git a/lisp/nnheaderxm.el b/lisp/nnheaderxm.el index 869ed69..f788042 100644 --- a/lisp/nnheaderxm.el +++ b/lisp/nnheaderxm.el @@ -1,7 +1,7 @@ ;;; nnheaderxm.el --- making Gnus backends work under XEmacs ;; Copyright (C) 1996,97,98 Free Software Foundation, Inc. -;; Author: Lars Magne Ingebrigtsen +;; Author: Lars Magne Ingebrigtsen ;; Keywords: news ;; This file is part of GNU Emacs. diff --git a/lisp/nnkiboze.el b/lisp/nnkiboze.el index 028d9e4..062806d 100644 --- a/lisp/nnkiboze.el +++ b/lisp/nnkiboze.el @@ -1,7 +1,7 @@ ;;; nnkiboze.el --- select virtual news access for Gnus ;; Copyright (C) 1995,96,97,98 Free Software Foundation, Inc. -;; Author: Lars Magne Ingebrigtsen +;; Author: Lars Magne Ingebrigtsen ;; Keywords: news ;; This file is part of GNU Emacs. diff --git a/lisp/nnlistserv.el b/lisp/nnlistserv.el index 684595c..bb2b4a9 100644 --- a/lisp/nnlistserv.el +++ b/lisp/nnlistserv.el @@ -1,7 +1,7 @@ ;;; nnlistserv.el --- retrieving articles via web mailing list archives ;; Copyright (C) 1997,98 Free Software Foundation, Inc. -;; Author: Lars Magne Ingebrigtsen +;; Author: Lars Magne Ingebrigtsen ;; Keywords: news, mail ;; This file is part of GNU Emacs. @@ -111,7 +111,7 @@ nil 0 0 url)) map) (nnweb-set-hashtb (cadar map) (car map)) - (message "%s %s %s" (cdr active) (point) pages) + (nnheader-message 5 "%s %s %s" (cdr active) (point) pages) )))) ;; Return the articles in the right order. (setq nnweb-articles diff --git a/lisp/nnmail.el b/lisp/nnmail.el index 4e79fc9..7af5f34 100644 --- a/lisp/nnmail.el +++ b/lisp/nnmail.el @@ -1,7 +1,7 @@ ;;; nnmail.el --- mail support functions for the Gnus mail backends ;; Copyright (C) 1995,96,97,98 Free Software Foundation, Inc. -;; Author: Lars Magne Ingebrigtsen +;; Author: Lars Magne Ingebrigtsen ;; Keywords: news, mail ;; This file is part of GNU Emacs. @@ -591,12 +591,12 @@ parameter. It should return nil, `warn' or `delete'." (nnmail-read-passwd (format "Password for %s: " (substring inbox (+ popmail 3)))))) - (message "Getting mail from the post office...")) + (nnheader-message 5 "Getting mail from the post office...")) (when (or (and (file-exists-p tofile) (/= 0 (nnheader-file-size tofile))) (and (file-exists-p inbox) (/= 0 (nnheader-file-size inbox)))) - (message "Getting mail from %s..." inbox))) + (nnheader-message 5 "Getting mail from %s..." inbox))) ;; Set TOFILE if have not already done so, and ;; rename or copy the file INBOX to TOFILE if and as appropriate. (cond @@ -667,7 +667,7 @@ parameter. It should return nil, `warn' or `delete'." (buffer-string) result)) (error "%s" (buffer-string))) (setq tofile nil))))))) - (message "Getting mail from %s...done" inbox) + (nnheader-message 5 "Getting mail from %s...done" inbox) (and errors (buffer-name errors) (kill-buffer errors)) @@ -875,7 +875,7 @@ is a spool. If not using procmail, return GROUP." (goto-char (match-beginning 0)))) ;; Possibly wrong format? (progn - (pop-to-buffer (find-file-noselect nnmail-current-spool)) + (pop-to-buffer (nnheader-find-file-noselect nnmail-current-spool)) (error "Error, unknown mail format! (Possibly corrupted.)")) ;; Carry on until the bitter end. (while (not (eobp)) @@ -962,7 +962,7 @@ is a spool. If not using procmail, return GROUP." (forward-line 1))) ;; Possibly wrong format? (progn - (pop-to-buffer (find-file-noselect nnmail-current-spool)) + (pop-to-buffer (nnheader-find-file-noselect nnmail-current-spool)) (error "Error, unknown mail format! (Possibly corrupted.)")) ;; Carry on until the bitter end. (while (not (eobp)) @@ -1079,7 +1079,7 @@ FUNC will be called with the group name to determine the article number." (or (funcall nnmail-split-methods) '("bogus")) (error - (message + (nnheader-message 5 "Error in `nnmail-split-methods'; using `bogus' mail group") (sit-for 1) '("bogus"))))) @@ -1769,6 +1769,14 @@ If ARGS, PROMPT is used as an argument to `format'." (substring inbox (match-end (string-match "^po:" inbox))))) (pop3-movemail crashbox))) +(defun nnmail-within-headers-p () + "Check to see if point is within the headers of a unix mail message. +Doesn't change point." + (let ((pos (point))) + (save-excursion + (and (nnmail-search-unix-mail-delim-backward) + (not (search-forward "\n\n" pos t)))))) + (run-hooks 'nnmail-load-hook) (provide 'nnmail) diff --git a/lisp/nnmbox.el b/lisp/nnmbox.el index 2661e7a..1f05d1d 100644 --- a/lisp/nnmbox.el +++ b/lisp/nnmbox.el @@ -1,7 +1,7 @@ ;;; nnmbox.el --- mail mbox access for Gnus ;; Copyright (C) 1995,96,97,98 Free Software Foundation, Inc. -;; Author: Lars Magne Ingebrigtsen +;; Author: Lars Magne Ingebrigtsen ;; Masanobu UMEDA ;; Keywords: news, mail diff --git a/lisp/nnmh.el b/lisp/nnmh.el index ab9716c..c359e95 100644 --- a/lisp/nnmh.el +++ b/lisp/nnmh.el @@ -1,7 +1,7 @@ ;;; nnmh.el --- mhspool access for Gnus ;; Copyright (C) 1995,96,97,98 Free Software Foundation, Inc. -;; Author: Lars Magne Ingebrigtsen +;; Author: Lars Magne Ingebrigtsen ;; Masanobu UMEDA ;; Keywords: news, mail @@ -104,11 +104,11 @@ (and large (zerop (% count 20)) - (message "nnmh: Receiving headers... %d%%" + (nnheader-message 5 "nnmh: Receiving headers... %d%%" (/ (* count 100) number)))) (when large - (message "nnmh: Receiving headers...done")) + (nnheader-message 5 "nnmh: Receiving headers...done")) (nnheader-fold-continuation-lines) 'headers)))) @@ -270,7 +270,7 @@ (push (car articles) rest)))) (push (car articles) rest))) (setq articles (cdr articles))) - (message "") + (nnheader-message 5 "") (nconc rest articles))) (deffoo nnmh-close-group (group &optional server) diff --git a/lisp/nnml.el b/lisp/nnml.el index 4ae2cca..e7a1df9 100644 --- a/lisp/nnml.el +++ b/lisp/nnml.el @@ -1,7 +1,7 @@ ;;; nnml.el --- mail spool access for Gnus ;; Copyright (C) 1995,96,97,98 Free Software Foundation, Inc. -;; Author: Lars Magne Ingebrigtsen +;; Author: Lars Magne Ingebrigtsen ;; Masanobu UMEDA ;; Keywords: news, mail diff --git a/lisp/nnoo.el b/lisp/nnoo.el index 37ac4bb..9c27786 100644 --- a/lisp/nnoo.el +++ b/lisp/nnoo.el @@ -1,7 +1,7 @@ ;;; nnoo.el --- OO Gnus Backends ;; Copyright (C) 1996,97,98 Free Software Foundation, Inc. -;; Author: Lars Magne Ingebrigtsen +;; Author: Lars Magne Ingebrigtsen ;; Keywords: news ;; This file is part of GNU Emacs. diff --git a/lisp/nnsoup.el b/lisp/nnsoup.el index 6eb1a02..e764150 100644 --- a/lisp/nnsoup.el +++ b/lisp/nnsoup.el @@ -1,7 +1,7 @@ ;;; nnsoup.el --- SOUP access for Gnus ;; Copyright (C) 1995,96,97,98 Free Software Foundation, Inc. -;; Author: Lars Magne Ingebrigtsen +;; Author: Lars Magne Ingebrigtsen ;; Masanobu UMEDA ;; Keywords: news, mail @@ -417,7 +417,7 @@ backend for the messages.") (while (setq area (pop areas)) ;; Change the name to the permanent name and move the files. (setq cur-prefix (nnsoup-next-prefix)) - (message "Incorporating file %s..." cur-prefix) + (nnheader-message 5 "Incorporating file %s..." cur-prefix) (when (file-exists-p (setq file (concat nnsoup-tmp-directory (gnus-soup-area-prefix area) ".IDX"))) @@ -548,13 +548,13 @@ backend for the messages.") nnsoup-packet-directory t nnsoup-packet-regexp)) packet) (while (setq packet (pop packets)) - (message "nnsoup: unpacking %s..." packet) + (nnheader-message 5 "nnsoup: unpacking %s..." packet) (if (not (gnus-soup-unpack-packet nnsoup-tmp-directory nnsoup-unpacker packet)) - (message "Couldn't unpack %s" packet) + (nnheader-message 5 "Couldn't unpack %s" packet) (delete-file packet) (nnsoup-read-areas) - (message "Unpacking...done"))))) + (nnheader-message 5 "Unpacking...done"))))) (defun nnsoup-narrow-to-article (article &optional area head) (let* ((area (or area (nnsoup-article-to-area article nnsoup-current-group))) @@ -618,7 +618,7 @@ backend for the messages.") "Make an outbound package of SOUP replies." (interactive) (unless (file-exists-p nnsoup-replies-directory) - (message "No such directory: %s" nnsoup-replies-directory)) + (nnheader-message 5 "No such directory: %s" nnsoup-replies-directory)) ;; Write all data buffers. (gnus-soup-save-areas) ;; Write the active file. @@ -716,7 +716,7 @@ backend for the messages.") (incf num)) (when nnsoup-always-save (save-buffer))) - (message "Stored %d messages" num))) + (nnheader-message 5 "Stored %d messages" num))) (nnsoup-write-replies) (kill-buffer tembuf)))))) @@ -754,7 +754,7 @@ backend for the messages.") (set-buffer (get-buffer-create " *nnsoup work*")) (buffer-disable-undo (current-buffer)) (while files - (message "Doing %s..." (car files)) + (nnheader-message 5 "Doing %s..." (car files)) (erase-buffer) (nnheader-insert-file-contents (car files)) (goto-char (point-min)) @@ -779,7 +779,7 @@ backend for the messages.") (vector ident group "ncm" "" lines)))) (setcdr (cadr elem) (+ min lines))) (setq files (cdr files))) - (message "") + (nnheader-message 5 "") (setq nnsoup-group-alist active) (nnsoup-write-active-file t))) diff --git a/lisp/nnspool.el b/lisp/nnspool.el index 50fc4b6..6914f78 100644 --- a/lisp/nnspool.el +++ b/lisp/nnspool.el @@ -2,7 +2,7 @@ ;; Copyright (C) 1988,89,90,93,94,95,96,97,98 Free Software Foundation, Inc. ;; Author: Masanobu UMEDA -;; Lars Magne Ingebrigtsen +;; Lars Magne Ingebrigtsen ;; Keywords: news ;; This file is part of GNU Emacs. @@ -144,11 +144,11 @@ there.") (and do-message (zerop (% (incf count) 20)) - (message "nnspool: Receiving headers... %d%%" + (nnheader-message 5 "nnspool: Receiving headers... %d%%" (/ (* count 100) number)))) (when do-message - (message "nnspool: Receiving headers...done")) + (nnheader-message 5 "nnspool: Receiving headers...done")) ;; Fold continuation lines. (nnheader-fold-continuation-lines) @@ -343,7 +343,7 @@ there.") (while (re-search-forward "[ \t\n]+" nil t) (replace-match " " t t)) (nnheader-report 'nnspool "%s" (buffer-string)) - (message "nnspool: %s" nnspool-status-string) + (nnheader-message 5 "nnspool: %s" nnspool-status-string) (ding) (run-hooks 'nnspool-rejected-article-hook)))) diff --git a/lisp/nntp.el b/lisp/nntp.el index a561140..1d8cfd1 100644 --- a/lisp/nntp.el +++ b/lisp/nntp.el @@ -1,7 +1,7 @@ ;;; nntp.el --- nntp access for Gnus ;;; Copyright (C) 1987-90,92-97 Free Software Foundation, Inc. -;; Author: Lars Magne Ingebrigtsen +;; Author: Lars Magne Ingebrigtsen ;; Keywords: news ;; This file is part of GNU Emacs. @@ -274,7 +274,7 @@ server there that you can connect to. See also ;; Nix out "nntp reading...." message. (when nntp-have-messaged (setq nntp-have-messaged nil) - (message "")) + (nnheader-message 5 "")) t)))) (unless discard (erase-buffer))))) @@ -977,8 +977,7 @@ password contained in '~/.nntp-authinfo'." (while (not (eobp)) (end-of-line) (delete-char 1) - (insert nntp-end-of-line) - (forward-line 1)) + (insert nntp-end-of-line)) (forward-char -1) (unless (eq (char-after (1- (point))) ?\r) (insert "\r")))) diff --git a/lisp/nnvirtual.el b/lisp/nnvirtual.el index 67fa669..df61450 100644 --- a/lisp/nnvirtual.el +++ b/lisp/nnvirtual.el @@ -2,7 +2,7 @@ ;; Copyright (C) 1994,95,96,97,98 Free Software Foundation, Inc. ;; Author: David Moore -;; Lars Magne Ingebrigtsen +;; Lars Magne Ingebrigtsen ;; Masanobu UMEDA ;; Keywords: news diff --git a/texi/ChangeLog b/texi/ChangeLog index 1986659..43c1736 100644 --- a/texi/ChangeLog +++ b/texi/ChangeLog @@ -1,3 +1,7 @@ +Tue May 19 02:44:31 1998 Mike Pullen + + * gnus.texi.orig: Typo fixes. + Wed Apr 29 21:52:28 1998 Lars Magne Ingebrigtsen * gnus.texi (Key Index): Untabified. diff --git a/texi/gnus.texi b/texi/gnus.texi index 8f516f2..8c552c5 100644 --- a/texi/gnus.texi +++ b/texi/gnus.texi @@ -858,7 +858,7 @@ not stored in the @file{.newsrc} file. @vindex gnus-save-newsrc-file You can turn off writing the @file{.newsrc} file by setting @code{gnus-save-newsrc-file} to @code{nil}, which means you can delete -the file and save some space, as well as making exit from gnus faster. +the file and save some space, as well as exiting from Gnus faster. However, this will make it impossible to use other newsreaders than gnus. But hey, who would want to, right? @@ -1364,14 +1364,14 @@ Go to the next group (@code{gnus-group-next-group}). @findex gnus-group-prev-group Go to the previous group (@code{gnus-group-prev-group}). -@item M-p -@kindex M-p (Group) +@item M-n +@kindex M-n (Group) @findex gnus-group-next-unread-group-same-level Go to the next unread group on the same (or lower) level (@code{gnus-group-next-unread-group-same-level}). -@item M-n -@kindex M-n (Group) +@item M-p +@kindex M-p (Group) @findex gnus-group-prev-unread-group-same-level Go to the previous unread group on the same (or lower) level (@code{gnus-group-prev-unread-group-same-level}). @@ -1490,7 +1490,7 @@ full summary buffer. Select the first unread article when entering the group. @item best -Select the most high-scored article in the group when entering the +Select the highest scored article in the group when entering the group. @end table @@ -2003,7 +2003,7 @@ when doing a followup---except that if it is present in a news group, you'll get mail group semantics when doing @kbd{f}. If you do an @kbd{a} command in a mail group and you have neither a -@code{to-list} group parameter nor a @code{to-address} group paramater, +@code{to-list} group parameter nor a @code{to-address} group parameter, then a @code{to-list} group parameter will be added automatically upon sending the message if @code{gnus-add-to-list} is set to @code{t}. @vindex gnus-add-to-list @@ -3828,7 +3828,7 @@ Send a complaint about excessive crossposting to the author of the current article (@code{gnus-summary-mail-crosspost-complaint}). @findex gnus-crosspost-complaint -This command is provided as a way to fight back agains the current +This command is provided as a way to fight back against the current crossposting pandemic that's sweeping Usenet. It will compose a reply using the @code{gnus-crosspost-complaint} variable as a preamble. This command understands the process/prefix convention @@ -3880,9 +3880,9 @@ process/prefix convention. Post a followup to the current article via news, even if you got the message through mail (@code{gnus-summary-followup-to-mail}). -@item S n -@kindex S n (Summary) -@findex gnus-summary-followup-to-mail +@item S N +@kindex S N (Summary) +@findex gnus-summary-followup-to-mail-with-original Post a followup to the current article via news, even if you got the message through mail and include the original message (@code{gnus-summary-followup-to-mail-with-original}). This command uses @@ -3938,7 +3938,7 @@ Be aware, however, that not all sites honor cancels, so your article may live on here and there, while most sites will delete the article in question. -Gnus will use the ``current'' select method when cancelling. If you +Gnus will use the ``current'' select method when canceling. If you want to use the standard posting method, use the @samp{a} symbolic prefix (@pxref{Symbolic Prefixes}). @@ -4462,7 +4462,7 @@ dormant articles will also be excluded. @item / m @kindex / m (Summary) @findex gnus-summary-limit-to-marks -Ask for a mark and then limit to all articles that have not been marked +Ask for a mark and then limit to all articles that have been marked with that mark (@code{gnus-summary-limit-to-marks}). @item / t @@ -4497,33 +4497,36 @@ score (@code{gnus-summary-limit-to-score}). @kindex M S (Summary) @kindex / E (Summary) @findex gnus-summary-limit-include-expunged -Display all expunged articles +Include all expunged articles in the limit (@code{gnus-summary-limit-include-expunged}). @item / D @kindex / D (Summary) @findex gnus-summary-limit-include-dormant -Display all dormant articles (@code{gnus-summary-limit-include-dormant}). +Include all dormant articles in the limit +(@code{gnus-summary-limit-include-dormant}). @item / * @kindex / * (Summary) @findex gnus-summary-limit-include-cached -Display all cached articles (@code{gnus-summary-limit-include-cached}). +Include all cached articles in the limit +(@code{gnus-summary-limit-include-cached}). @item / d @kindex / d (Summary) @findex gnus-summary-limit-exclude-dormant -Hide all dormant articles (@code{gnus-summary-limit-exclude-dormant}). +Exclude all dormant articles from the limit +(@code{gnus-summary-limit-exclude-dormant}). @item / T @kindex / T (Summary) @findex gnus-summary-limit-include-thread -Include all the articles in the current thread. +Include all the articles in the current thread in the limit. @item / c @kindex / c (Summary) @findex gnus-summary-limit-exclude-childless-dormant -Hide all dormant articles that have no children +Exclude all dormant articles that have no children from the limit (@code{gnus-summary-limit-exclude-childless-dormant}). @item / C @@ -4548,7 +4551,7 @@ hierarchical fashion. Threading is done by looking at the @code{References} headers of the articles. In a perfect world, this would be enough to build pretty trees, but unfortunately, the @code{References} header is often broken -or simply missing. Weird news propagration excarcerbates the problem, +or simply missing. Weird news propagation excarcerbates the problem, so one has to employ other heuristics to get pleasing results. A plethora of approaches exists, as detailed in horrible detail in @pxref{Customizing Threading}. @@ -4568,7 +4571,7 @@ A small(er) section of this tree-like structure. @item loose threads Threads often lose their roots due to article expiry, or due to the root already having been read in a previous session, and not displayed in the -summary buffer. We then typicall have many sub-threads that really +summary buffer. We then typically have many sub-threads that really belong to one thread, but are without connecting roots. These are called loose threads. @@ -5586,7 +5589,7 @@ Finally, you have the @code{gnus-use-long-file-name} variable. If it is @code{nil}, all the preceding functions will replace all periods (@samp{.}) in the group names with slashes (@samp{/})---which means that the functions will generate hierarchies of directories instead of having -all the files in the toplevel directory +all the files in the top level directory (@file{~/News/alt/andrea-dworkin} instead of @file{~/News/alt.andrea-dworkin}.) This variable is @code{t} by default on most systems. However, for historical reasons, this is @code{nil} on @@ -5609,7 +5612,7 @@ a spool, you could Then just save with @kbd{o}. You'd then read this hierarchy with ephemeral @code{nneething} groups---@kbd{G D} in the group buffer, and -the toplevel directory as the argument (@file{~/News/}). Then just walk +the top level directory as the argument (@file{~/News/}). Then just walk around to the groups/directories with @code{nneething}. @@ -6031,7 +6034,7 @@ these articles easier. @menu * Article Highlighting:: You want to make the article look like fruit salad. -* Article Fontisizing:: Making emphasized text look niced. +* Article Fontisizing:: Making emphasized text look nice. * Article Hiding:: You also want to make certain info go away. * Article Washing:: Lots of way-neat functions to make life better. * Article Buttons:: Click on URLs, Message-IDs, addresses and the like. @@ -6327,7 +6330,7 @@ Unreadable articles that tell you to read them with Caesar rotate or rot13. It's commonly called ``rot13'' because each letter is rotated 13 positions in the alphabet, e. g. @samp{B} (letter #2) -> @samp{O} (letter #15). It is sometimes referred to as ``Caesar rotate'' because Caesar -is rumoured to have employed this form of, uh, somewhat weak encryption. +is rumored to have employed this form of, uh, somewhat weak encryption. @item W t @kindex W t (Summary) @@ -9635,7 +9638,7 @@ when all this splitting is performed. If you want to have Gnus create groups dynamically based on some information in the headers (i.e., do @code{replace-match}-like -substitions in the group names), you can say things like: +substitutions in the group names), you can say things like: @example (any "debian-\\(\\w*\\)@@lists.debian.org" "mail.debian.\\1") @@ -11232,7 +11235,7 @@ When the connection to the net is up again (and Gnus knows this), the Agent is @dfn{plugged}. The @dfn{local} machine is the one you're running on, and which isn't -connected to the net continously. +connected to the net continuously. @dfn{Downloading} means fetching things from the net to your local machine. @dfn{Uploading} is doing the opposite. @@ -13479,7 +13482,7 @@ four days, Gnus will decay the scores four times, for instance. * Moderation:: What to do if you're a moderator. * XEmacs Enhancements:: There are more pictures and stuff under XEmacs. * Fuzzy Matching:: What's the big fuzz? -* Thwarting Email Spam:: A how-to on avoiding unsolited commercial email. +* Thwarting Email Spam:: A how-to on avoiding unsolicited commercial email. * Various Various:: Things that are really various. @end menu @@ -13567,7 +13570,7 @@ default. @cindex symbolic prefixes Quite a lot of Emacs commands react to the (numeric) prefix. For -instance, @kbd{C-u 4 C-f} moves point four charaters forward, and +instance, @kbd{C-u 4 C-f} moves point four characters forward, and @kbd{C-u 9 0 0 I s s p} adds a permanent @code{Subject} substring score rule of 900 to the current article. @@ -14329,7 +14332,7 @@ If you add handlers to @code{gnus-demon-handlers} directly, you should run @code{gnus-demon-init} to make the changes take hold. To cancel all daemons, you can use the @code{gnus-demon-cancel} function. -Note that adding daemons can be pretty naughty if you overdo it. Adding +Note that adding daemons can be pretty naughty if you over do it. Adding functions that scan all news and mail from all servers every two seconds is a sure-fire way of getting booted off any respectable system. So behave. @@ -15018,7 +15021,7 @@ The biggest problem I have with email spam is that it comes in under false pretenses. I press @kbd{g} and Gnus merrily informs me that I have 10 new emails. I say ``Golly gee! Happy is me!'' and select the mail group, only to find two pyramid schemes, seven advertisements -(``New! Miracle tonic for growing full, lustrouos hair on your toes!'') +(``New! Miracle tonic for growing full, lustrous hair on your toes!'') and one mail asking me to repent and find some god. This is annoying. @@ -15060,7 +15063,7 @@ header, it's probably ok. All the rest goes to the @samp{spam} group. In addition, many mail spammers talk directly to your @code{smtp} server and do not include your email address explicitly in the @code{To} header. Why they do this is unknown---perhaps it's to thwart this -twarting scheme? In any case, this is trivial to deal with---you just +thwarting scheme? In any case, this is trivial to deal with---you just put anything not addressed to you in the @samp{spam} group by ending your fancy split rule in this way: @@ -15078,7 +15081,7 @@ citizen, you can even send off complaints to the proper authorities on each unsolicited commercial email---at your leisure. If you are also a lazy net citizen, you will probably prefer complaining -automatically with the @file{gnus-junk.el} package, availiable FOR FREE +automatically with the @file{gnus-junk.el} package, available FOR FREE at @file{}. Since most e-mail spam is sent automatically, this may reconcile the cosmic balance somewhat. @@ -15086,7 +15089,7 @@ cosmic balance somewhat. This works for me. It allows people an easy way to contact me (they can just press @kbd{r} in the usual way), and I'm not bothered at all with spam. It's a win-win situation. Forging @code{From} headers to point -to non-existant domains is yucky, in my opinion. +to non-existent domains is yucky, in my opinion. @node Various Various @@ -15507,7 +15510,7 @@ Steven L. Baur---lots and lots and lots of bugs detections and fixes. Vladimir Alexiev---the refcard and reference booklets. @item -Felix Lee & Jamie Zawinsky---I stole some pieces from the XGnus +Felix Lee & Jamie Zawinski---I stole some pieces from the XGnus distribution by Felix Lee and JWZ. @item @@ -15719,7 +15722,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.9. +* Quassia Gnus:: Two times two is four, or Gnus 5.6.10. @end menu These lists are, of course, just @emph{short} overviews of the @@ -16254,7 +16257,7 @@ Emphasized text can be properly fontisized: @node Quassia Gnus @subsubsection Quassia Gnus -New features in Gnus 5.6.9: +New features in Gnus 5.6.10: @itemize @bullet @@ -16324,7 +16327,7 @@ If you used this function in your initialization files, you must rewrite them to use @code{face-spec-set} instead. @item - Cancelling now uses the current select method. Symbolic prefix + Canceling now uses the current select method. Symbolic prefix @kbd{a} forces normal posting method. @item @@ -16461,14 +16464,14 @@ the crash-box is only appropriate to one specific group. nnmh-be-safe means that crossposted articles will be marked as unread. @item - Orphan score entries dont show on "V t" score trace + Orphan score entries don't show on "V t" score trace @item when clearing out data, the cache data should also be reset. @item rewrite gnus-summary-limit-children to be non-recursive to avoid exceeding lisp nesting on huge groups. @item - expinged articles are counted when computing scores. + expunged articles are counted when computing scores. @item implement gnus-batch-brew-soup @item @@ -16544,7 +16547,7 @@ bar and the Gnus bar. the server? @item sort after gathering threads -- make false roots have the -headers of the oldest orhpan with a 0 article number? +headers of the oldest orphan with a 0 article number? @item nndoc groups should inherit the score files of their parents? Also inherit copy prompts and save files. @@ -16585,7 +16588,7 @@ has been changed before using it. on. Eg. -- `(("nnml:" . 1))'. @item easier interface to nnkiboze to create ephemeral groups that -contaion groups that match a regexp. +contain groups that match a regexp. @item allow newlines in urls, but remove them before using the URL. @@ -16731,7 +16734,7 @@ groups it has been mailed to. @item hide-pgp should also hide PGP public key blocks. @item - Command in the group buffer to respoll process-marked groups. + Command in the group buffer to respool process-marked groups. @item `gnus-summary-find-matching' should accept pseudo-"headers" like "body", "head" and "all" @@ -16784,7 +16787,7 @@ even unread articles. @item checking for bogus groups should clean topic alists as well. @item - cancelling articles in foreign groups. + canceling articles in foreign groups. @item article number in folded topics isn't properly updated by Xref handling. @@ -16830,7 +16833,7 @@ the entire folder to disk when accepting new messages. server mode command for clearing read marks from all groups from a server. @item - when following up mulitple articles, include all To, Cc, etc headers + when following up multiple articles, include all To, Cc, etc headers from all articles. @item a command for deciding what the total score of the current @@ -16984,7 +16987,7 @@ on article marks. a way to visually distinguish slave Gnusae from masters. (Whip instead of normal logo?) @item - Use DJ Bernstein "From " quoting/dequoting, where appliccable. + Use DJ Bernstein "From " quoting/dequoting, where applicable. @item Why is hide-citation-maybe and hide-citation different? Also clear up info. @@ -17051,7 +17054,7 @@ They could be used like this: would show all the messages which are labeled `bug' but not labeled `fixed'. -One could also immagine the labels being used for highliting, or +One could also imagine the labels being used for highlighting, or affect the summary line format. @@ -17064,7 +17067,7 @@ would recognize things that looks like messages or folders: - If it is a directory containing numbered files, create an nndir summary buffer. -- For other directories, create a nneething summaru buffer. +- For other directories, create a nneething summary buffer. - For files matching "\\`From ", create a nndoc/mbox summary. @@ -17091,7 +17094,7 @@ decend into sci.something ? decend into ucd? The problem above is that since there is really only one subsection of -science, shouldn't it prompt you for only decending sci.something? If +science, shouldn't it prompt you for only descending sci.something? If there was a sci.somethingelse group or section, then it should prompt for sci? first the sci.something? then sci.somethingelse?... @@ -17347,7 +17350,7 @@ to be able to post in them (using the current select method). `x' should retain any sortings that have been performed. @item - allow the user to specify the presedence of the secondary marks. Also + allow the user to specify the precedence of the secondary marks. Also allow them to be displayed separately. @item @@ -18918,7 +18921,7 @@ this: @node Score File Syntax @subsection Score File Syntax -Score files are meant to be easily parsable, but yet extremely +Score files are meant to be easily parseable, but yet extremely mallable. It was decided that something that had the same read syntax as an Emacs Lisp list would fit that spec. diff --git a/texi/message.texi b/texi/message.texi index b866dd2..2484235 100644 --- a/texi/message.texi +++ b/texi/message.texi @@ -1,7 +1,7 @@ \input texinfo @c -*-texinfo-*- @setfilename message -@settitle Message 5.6.9 Manual +@settitle Message 5.6.10 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.9 Manual +@title Message 5.6.10 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.9. Message is distributed with +This manual corresponds to Message 5.6.10. Message is distributed with the Gnus distribution bearing the same version number as this manual has.