Commit 52bec650 authored by Miles Bader's avatar Miles Bader

Merge from gnus--devo--0

Revision: emacs@sv.gnu.org/emacs--devo--0--patch-1073
parent 978bef9a
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.
......
......@@ -38,6 +38,8 @@ the new installer issues a warning if other Gnus installations which
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.
......@@ -27,6 +27,8 @@ installer issues a warning if other Gnus installations which will shadow
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.
* 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
......@@ -7,6 +38,12 @@
* 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
......
......@@ -2055,10 +2055,15 @@ and with point over the group in question."
(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)))
......
......@@ -1193,7 +1193,10 @@ articles in the topic and its subtopics."
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")
......@@ -1245,10 +1248,15 @@ Also see `gnus-group-catchup'."
(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")
......
......@@ -338,11 +338,43 @@ Symbols are also allowed; their print names are used instead."
;; 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)
......
......@@ -286,16 +286,19 @@ If non-nil, this maildrop will be checked periodically for new mail."
: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")))
......
......@@ -1722,6 +1722,7 @@ You must have the \"hashcash\" binary installed, see `hashcash-path'."
"^ *--+ +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.")
......
......@@ -1186,18 +1186,20 @@ Select keys for signing.
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)
......@@ -1267,18 +1269,19 @@ Select recipients for encryption.
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))
......@@ -1293,19 +1296,20 @@ Select keys for signing.
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)
......
......@@ -802,7 +802,7 @@ If EXAMINE is non-nil the group is selected read-only."
(or nnimap-server-address
nnimap-address))
(list port)
(list "imap" "imaps")))
(list "imap" "imaps" "143" "993")))
(passwd (netrc-machine-user-or-password
"password"
list
......@@ -810,7 +810,7 @@ If EXAMINE is non-nil the group is selected read-only."
(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
......
......@@ -534,8 +534,9 @@ performed."
: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)
......@@ -1772,7 +1773,6 @@ See the Info node `(gnus)Fancy Mail Splitting' for more details."
(defun nnmail-get-new-mail-1 (method exit-func temp
group in-group spool-func)
(let* ((sources mail-sources)
fetching-sources
(i 0)
......@@ -1782,7 +1782,6 @@ See the Info node `(gnus)Fancy Mail Splitting' for more details."
(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
......@@ -1793,7 +1792,6 @@ See the Info node `(gnus)Fancy Mail Splitting' for more details."
(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)
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment