+2008-02-24 Katsumi Yamaoka <yamaoka@jpl.org>
+
+ * gnus-news.texi: Mention that spaces and tabs are allowed in the
+ installation directory name.
+
2008-02-12 Romain Francoise <romain@orebokech.com>
* epa.texi (Overview): Fix typo.
will shadow the latest one are detected. You can then remove those
shadows manually or remove them using @code{make
remove-installed-shadows}.
+
+@item The installation directory name is allowed to have spaces and/or tabs.
@end itemize
@item New packages and libraries within Gnus
GNUS NEWS -- history of user-visible changes.
Copyright (C) 1999, 2000, 2001, 2002, 2003, 2004, 2005,
- 2006, 2007, 2008 Free Software Foundation, Inc.
+ 2006, 2007, 2008 Free Software Foundation, Inc.
See the end of the file for license conditions.
Please send Gnus bug reports to bugs@gnus.org.
the latest one are detected. You can then remove those shadows manually
or remove them using `make remove-installed-shadows'.
+** The installation directory name is allowed to have spaces and/or tabs.
+
\f
* New packages and libraries within Gnus
+2008-02-16 Reiner Steib <Reiner.Steib@gmx.de>
+
+ * mail-source.el (mail-source-delete-incoming): Change default.
+ Supplement doc string.
+
+ * gnus-util.el (gnus-y-or-n-p, gnus-y-or-n-p): Update comments.
+
+2008-02-14 Reiner Steib <Reiner.Steib@gmx.de>
+
+ * nnmail.el (nnmail-message-id-cache-file): Derive from
+ `gnus-home-directory'.
+
+2008-02-11 Reiner Steib <Reiner.Steib@gmx.de>
+
+ * gnus-topic.el (gnus-topic-select-group, gnus-topic-read-group):
+ Document negativ prefix.
+
+ * gnus-group.el (gnus-group-read-group): Document negativ prefix.
+
+2008-02-10 Lars Magne Ingebrigtsen <larsi@gnus.org>
+
+ * message.el (message-unsent-separator): Add the Exim bounce
+ separator.
+
+2008-02-10 Daiki Ueno <ueno@unixuser.org>
+
+ * mml2015.el (mml2015-epg-sign): Remove skipped signers from the signer
+ list.
+ (mml2015-epg-encrypt): Remove skipped recipients/signers from the
+ recipient/signer list.
+
2008-02-10 Reiner Steib <Reiner.Steib@gmx.de>
* mm-util.el (mm-codepage-setup): If cp-supported-codepages isn't
* gnus-art.el (pgg-display-output-buffer): Declare as function.
+2008-02-07 Tassilo Horn <tassilo@member.fsf.org>
+
+ * nnimap.el (nnimap-open-connection): Add "143" and "993" as default
+ ports to the calls to `netrc-machine-user-or-password' in addition to
+ "imap" and "imaps".
+
2008-02-03 Reiner Steib <Reiner.Steib@gmx.de>
* gnus.el (gnus-group-startup-message): Add `find-image' call before
(defun gnus-group-read-group (&optional all no-article group select-articles)
"Read news in this newsgroup.
If the prefix argument ALL is non-nil, already read articles become
-readable. IF ALL is a number, fetch this number of articles. If the
-optional argument NO-ARTICLE is non-nil, no article will be
-auto-selected upon group entry. If GROUP is non-nil, fetch that
-group."
+readable.
+
+If ALL is a positive number, fetch this number of the latest
+articles in the group. If ALL is a negative number, fetch this
+number of the earliest articles in the group.
+
+If the optional argument NO-ARTICLE is non-nil, no article will
+be auto-selected upon group entry. If GROUP is non-nil, fetch
+that group."
(interactive "P")
(let ((no-display (eq all 0))
(group (or group (gnus-group-group-name)))
No article is selected automatically.
If the group is opened, just switch the summary buffer.
If ALL is non-nil, already read articles become readable.
-If ALL is a number, fetch this number of articles.
+
+If ALL is a positive number, fetch this number of the latest
+articles in the group. If ALL is a negative number, fetch this
+number of the earliest articles in the group.
If performed over a topic line, toggle folding the topic."
(interactive "P")
(defun gnus-topic-read-group (&optional all no-article group)
"Read news in this newsgroup.
If the prefix argument ALL is non-nil, already read articles become
-readable. IF ALL is a number, fetch this number of articles. If the
-optional argument NO-ARTICLE is non-nil, no article will be
-auto-selected upon group entry. If GROUP is non-nil, fetch that
-group.
+readable.
+
+If ALL is a positive number, fetch this number of the latest
+articles in the group. If ALL is a negative number, fetch this
+number of the earliest articles in the group.
+
+If the optional argument NO-ARTICLE is non-nil, no article will
+be auto-selected upon group entry. If GROUP is non-nil, fetch
+that group.
If performed over a topic line, toggle folding the topic."
(interactive "P")
;; Two silly functions to ensure that all `y-or-n-p' questions clear
;; the echo area.
;;
-;; Do we really need these aliases? Workarounds for bugs in the corresponding
-;; Emacs functions? Maybe these bug are no longer present in any supported
+;; Do we really need these functions? Workarounds for bugs in the corresponding
+;; Emacs functions? Maybe these bugs are no longer present in any supported
;; (X)Emacs version? Alias them to the original functions and see if anyone
-;; reports a problem. If not, replace with original functions. --rsteib
+;; reports a problem. If not, replace with original functions. --rsteib,
+;; 2007-12-14
;;
+;; All supported Emacsen clear the echo area after `yes-or-no-p', so we can
+;; remove `yes-or-no-p'. RMS says that not clearing after `y-or-n-p' is
+;; intentional (see below), so we could remove `gnus-y-or-n-p' too.
+;; Objections? --rsteib, 2008-02-16
+;;
+;; ,----[ http://thread.gmane.org/gmane.emacs.gnus.general/65099/focus=66070 ]
+;; | From: Richard Stallman
+;; | Subject: Re: Do we need gnus-yes-or-no-p and gnus-y-or-n-p?
+;; | To: Katsumi Yamaoka [...]
+;; | Cc: emacs-devel@[...], xemacs-beta@[...], ding@[...]
+;; | Date: Mon, 07 Jan 2008 12:16:05 -0500
+;; | Message-ID: <E1JBva1-000528-VY@fencepost.gnu.org>
+;; |
+;; | The behavior of `y-or-n-p' that it doesn't clear the question
+;; | and the answer is not serious of course, but I feel it is not
+;; | cool.
+;; |
+;; | It is intentional.
+;; |
+;; | Currently, it is commented out in the trunk by Reiner Steib. He
+;; | also wrote the benefit of leaving the question and the answer in
+;; | the echo area as follows:
+;; |
+;; | (http://article.gmane.org/gmane.emacs.gnus.general/66061)
+;; | > In contrast to yes-or-no-p it is much easier to type y, n,
+;; | > SPC, DEL, etc accidentally, so it might be useful for the user
+;; | > to see what he has typed.
+;; |
+;; | Yes, that is the reason.
+;; `----
+
;; (defun gnus-y-or-n-p (prompt)
;; (prog1
;; (y-or-n-p prompt)
:group 'mail-source
:type 'integer)
-(defcustom mail-source-delete-incoming nil
- "*If non-nil, delete incoming files after handling.
+(defcustom mail-source-delete-incoming
+ 10 ;; development versions
+ ;; 2 ;; released versions
+ "If non-nil, delete incoming files after handling.
If t, delete immediately, if nil, never delete. If a positive number, delete
-files older than number of days."
- ;; Note: The removing happens in `mail-source-callback', i.e. no old
- ;; incoming files will be deleted, unless you receive new mail.
- ;;
- ;; You may also set this to `nil' and call `mail-source-delete-old-incoming'
- ;; from a hook or interactively.
+files older than number of days.
+
+Removing of old files happens in `mail-source-callback', i.e. no
+old incoming files will be deleted unless you receive new mail.
+You may also set this variable to nil and call
+`mail-source-delete-old-incoming' interactively."
:group 'mail-source
+ :version "22.2" ;; No Gnus / Gnus 5.10.10 (default changed)
:type '(choice (const :tag "immediately" t)
(const :tag "never" nil)
(integer :tag "days")))
"^ *--+ +begin message +--+ *$\\|"
"^ *---+ +Original message follows +---+ *$\\|"
"^ *---+ +Undelivered message follows +---+ *$\\|"
+ "^------ This is a copy of the message, including all the headers. ------ *$\\|"
"^|? *---+ +Message text follows: +---+ *|?$")
"A regexp that matches the separator before the text of a failed message.")
If no one is selected, default secret key is used. "
mml2015-signers t)
(if mml2015-signers
- (mapcar
- (lambda (signer)
- (setq signer-key (mml2015-epg-find-usable-key
- (epg-list-keys context signer t)
- 'sign))
- (unless (or signer-key
- (y-or-n-p
- (format "No secret key for %s; skip it? "
- signer)))
- (error "No secret key for %s" signer))
- signer-key)
- mml2015-signers))))))
+ (delq nil
+ (mapcar
+ (lambda (signer)
+ (setq signer-key (mml2015-epg-find-usable-key
+ (epg-list-keys context signer t)
+ 'sign))
+ (unless (or signer-key
+ (y-or-n-p
+ (format
+ "No secret key for %s; skip it? "
+ signer)))
+ (error "No secret key for %s" signer))
+ signer-key)
+ mml2015-signers)))))))
signature micalg)
(epg-context-set-armor context t)
(epg-context-set-textmode context t)
If no one is selected, symmetric encryption will be performed. "
recipients))
(setq recipients
- (mapcar
- (lambda (recipient)
- (setq recipient-key (mml2015-epg-find-usable-key
- (epg-list-keys context recipient)
- 'encrypt))
- (unless (or recipient-key
- (y-or-n-p
- (format "No public key for %s; skip it? "
- recipient)))
- (error "No public key for %s" recipient))
- recipient-key)
- recipients))
+ (delq nil
+ (mapcar
+ (lambda (recipient)
+ (setq recipient-key (mml2015-epg-find-usable-key
+ (epg-list-keys context recipient)
+ 'encrypt))
+ (unless (or recipient-key
+ (y-or-n-p
+ (format "No public key for %s; skip it? "
+ recipient)))
+ (error "No public key for %s" recipient))
+ recipient-key)
+ recipients)))
(unless recipients
(error "No recipient specified")))
(message-options-set 'mml2015-epg-recipients recipients))
If no one is selected, default secret key is used. "
mml2015-signers t)
(if mml2015-signers
- (mapcar
- (lambda (signer)
- (setq signer-key (mml2015-epg-find-usable-key
- (epg-list-keys context signer t)
- 'sign))
- (unless (or signer-key
- (y-or-n-p
- (format
- "No secret key for %s; skip it? "
- signer)))
- (error "No secret key for %s" signer))
- signer-key)
- mml2015-signers))))))
+ (delq nil
+ (mapcar
+ (lambda (signer)
+ (setq signer-key (mml2015-epg-find-usable-key
+ (epg-list-keys context signer t)
+ 'sign))
+ (unless (or signer-key
+ (y-or-n-p
+ (format
+ "No secret key for %s; skip it? "
+ signer)))
+ (error "No secret key for %s" signer))
+ signer-key)
+ mml2015-signers)))))))
(epg-context-set-signers context signers))
(epg-context-set-armor context t)
(epg-context-set-textmode context t)
(or nnimap-server-address
nnimap-address))
(list port)
- (list "imap" "imaps")))
+ (list "imap" "imaps" "143" "993")))
(passwd (netrc-machine-user-or-password
"password"
list
(or nnimap-server-address
nnimap-address))
(list port)
- (list "imap" "imaps"))))
+ (list "imap" "imaps" "143" "993"))))
(if (imap-authenticate user passwd nnimap-server-buffer)
(prog2
(setq nnimap-server-buffer-alist
:type '(choice (const :tag "disable" nil)
(integer :format "%v")))
-(defcustom nnmail-message-id-cache-file "~/.nnmail-cache"
- "*The file name of the nnmail Message-ID cache."
+(defcustom nnmail-message-id-cache-file
+ (nnheader-concat gnus-home-directory ".nnmail-cache")
+ "The file name of the nnmail Message-ID cache."
:group 'nnmail-duplicate
:group 'nnmail-files
:type 'file)
(defun nnmail-get-new-mail-1 (method exit-func temp
group in-group spool-func)
-
(let* ((sources mail-sources)
fetching-sources
(i 0)
(when (and (nnmail-get-value "%s-get-new-mail" method)
sources)
(while (setq source (pop sources))
-
;; Use group's parameter
(when (eq (car source) 'group)
(let ((mail-sources
(nnmail-get-new-mail-1 method exit-func temp
group group spool-func))
(setq source nil))
-
;; Hack to only fetch the contents of a single group's spool file.
(when (and (eq (car source) 'directory)
(null nnmail-scan-directory-mail-source-once)