[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] emacs doc/misc/gnus.texi doc/misc/emacs-mime.te...
From: |
Miles Bader |
Subject: |
[Emacs-diffs] emacs doc/misc/gnus.texi doc/misc/emacs-mime.te... |
Date: |
Sat, 29 Aug 2009 00:27:16 +0000 |
CVSROOT: /cvsroot/emacs
Module name: emacs
Changes by: Miles Bader <miles> 09/08/29 00:27:15
Modified files:
doc/misc : gnus.texi emacs-mime.texi ChangeLog
gnus-news.texi auth.texi
lisp/gnus : mml.el ChangeLog gnus-sum.el gnus-group.el
gnus-art.el
etc : GNUS-NEWS
Log message:
Merge from gnus--devo--0
Revision: address@hidden/emacs--devo--0--patch-1629
CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/emacs/doc/misc/gnus.texi?cvsroot=emacs&r1=1.47&r2=1.48
http://cvs.savannah.gnu.org/viewcvs/emacs/doc/misc/emacs-mime.texi?cvsroot=emacs&r1=1.10&r2=1.11
http://cvs.savannah.gnu.org/viewcvs/emacs/doc/misc/ChangeLog?cvsroot=emacs&r1=1.312&r2=1.313
http://cvs.savannah.gnu.org/viewcvs/emacs/doc/misc/gnus-news.texi?cvsroot=emacs&r1=1.11&r2=1.12
http://cvs.savannah.gnu.org/viewcvs/emacs/doc/misc/auth.texi?cvsroot=emacs&r1=1.4&r2=1.5
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/gnus/mml.el?cvsroot=emacs&r1=1.61&r2=1.62
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/gnus/ChangeLog?cvsroot=emacs&r1=1.818&r2=1.819
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/gnus/gnus-sum.el?cvsroot=emacs&r1=1.140&r2=1.141
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/gnus/gnus-group.el?cvsroot=emacs&r1=1.79&r2=1.80
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/gnus/gnus-art.el?cvsroot=emacs&r1=1.181&r2=1.182
http://cvs.savannah.gnu.org/viewcvs/emacs/etc/GNUS-NEWS?cvsroot=emacs&r1=1.23&r2=1.24
Patches:
Index: doc/misc/gnus.texi
===================================================================
RCS file: /cvsroot/emacs/emacs/doc/misc/gnus.texi,v
retrieving revision 1.47
retrieving revision 1.48
diff -u -b -r1.47 -r1.48
--- doc/misc/gnus.texi 6 Jun 2009 14:26:52 -0000 1.47
+++ doc/misc/gnus.texi 29 Aug 2009 00:27:12 -0000 1.48
@@ -16299,6 +16299,23 @@
commands will not mark an article as expirable, even if the group has
auto-expire turned on.
address@hidden gnus-mark-copied-or-moved-articles-as-expirable
+The expirable marks of articles will be removed when copying or moving
+them to a group in which auto-expire is not turned on. This is for
+preventing articles from being expired unintentionally. On the other
+hand, to a group that has turned auto-expire on, the expirable marks of
+articles that are copied or moved will not be changed by default. I.e.,
+when copying or moving to such a group, articles that were expirable
+will be left expirable and ones that were not expirable will not be
+marked as expirable. So, even though in auto-expire groups, some
+articles will never get expired (unless you read them again). If you
+don't side with that behavior that unexpirable articles may be mixed
+into auto-expire groups, you can set
address@hidden to a
address@hidden value. In that case, articles that have been read will
+be marked as expirable automatically when being copied or moved to a
+group that has auto-expire turned on. The default value is @code{nil}.
+
@node Washing Mail
@subsection Washing Mail
@@ -26926,6 +26943,15 @@
@acronym{IMAP} users might want to allow @samp{/} in group names though.
address@hidden gnus-safe-html-newsgroups
address@hidden gnus-safe-html-newsgroups
+Groups in which links in html articles are considered all safe. The
+value may be a regexp matching those groups, a list of group names, or
address@hidden This overrides @code{mm-w3m-safe-url-regexp}. The default
+value is @code{"\\`nnrss[+:]"}. This is effective only when emacs-w3m
+renders html articles, i.e., in the case @code{mm-text-html-renderer} is
+set to @code{w3m}. @xref{Display Customization, ,Display Customization,
+emacs-mime, The Emacs MIME Manual}.
@end table
Index: doc/misc/emacs-mime.texi
===================================================================
RCS file: /cvsroot/emacs/emacs/doc/misc/emacs-mime.texi,v
retrieving revision 1.10
retrieving revision 1.11
diff -u -b -r1.10 -r1.11
--- doc/misc/emacs-mime.texi 16 Feb 2009 17:42:00 -0000 1.10
+++ doc/misc/emacs-mime.texi 29 Aug 2009 00:27:13 -0000 1.11
@@ -418,7 +418,9 @@
A regular expression that matches safe URL names, i.e. URLs that are
unlikely to leak personal information when rendering @acronym{HTML}
email (the default value is @samp{\\`cid:}). If @code{nil} consider
-all URLs safe.
+all URLs safe. In Gnus, this will be overridden according to the value
+of the variable @code{gnus-safe-html-newsgroups}, @xref{Various
+Various, ,Various Various, gnus, Gnus Manual}.
@item mm-inline-text-html-with-w3m-keymap
@vindex mm-inline-text-html-with-w3m-keymap
Index: doc/misc/ChangeLog
===================================================================
RCS file: /cvsroot/emacs/emacs/doc/misc/ChangeLog,v
retrieving revision 1.312
retrieving revision 1.313
diff -u -b -r1.312 -r1.313
--- doc/misc/ChangeLog 28 Aug 2009 14:36:53 -0000 1.312
+++ doc/misc/ChangeLog 29 Aug 2009 00:27:13 -0000 1.313
@@ -1,3 +1,19 @@
+2009-08-29 Teodor Zlatanov <address@hidden>
+
+ * auth.texi: Rewritten for coverage and clarity.
+
+2009-08-29 Katsumi Yamaoka <address@hidden>
+
+ * gnus.texi (Expiring Mail): Mention
+ gnus-mark-copied-or-moved-articles-as-expirable.
+ (Various Various): Mention gnus-safe-html-newsgroups.
+
+ * gnus-news.texi: Mention
+ gnus-mark-copied-or-moved-articles-as-expirable.
+
+ * emacs-mime.texi (Display Customization): Add xref to
+ gnus-safe-html-newsgroups.
+
2009-08-28 Michael Albinus <address@hidden>
* tramp.texi (Version Control): Remove.
Index: doc/misc/gnus-news.texi
===================================================================
RCS file: /cvsroot/emacs/emacs/doc/misc/gnus-news.texi,v
retrieving revision 1.11
retrieving revision 1.12
diff -u -b -r1.11 -r1.12
--- doc/misc/gnus-news.texi 5 Feb 2009 02:34:37 -0000 1.11
+++ doc/misc/gnus-news.texi 29 Aug 2009 00:27:13 -0000 1.12
@@ -311,6 +311,15 @@
@item The @file{all.SCORE} file can be edited from the group buffer
using @kbd{W e}.
address@hidden You can set
@code{gnus-mark-copied-or-moved-articles-as-expirable}
+to a address@hidden value so that articles that have been read may be
+marked as expirable automatically when copying or moving them to a group
+that has auto-expire turned on. The default is @code{nil} and copying
+and moving of articles behave as before; i.e., the expirable marks will
+be unchanged except that the marks will be removed when copying or
+moving articles to a group that has not turned auto-expire on.
address@hidden Mail}.
+
@end itemize
@end itemize
Index: doc/misc/auth.texi
===================================================================
RCS file: /cvsroot/emacs/emacs/doc/misc/auth.texi,v
retrieving revision 1.4
retrieving revision 1.5
diff -u -b -r1.4 -r1.5
--- doc/misc/auth.texi 2 Apr 2009 06:59:17 -0000 1.4
+++ doc/misc/auth.texi 29 Aug 2009 00:27:13 -0000 1.5
@@ -2,7 +2,7 @@
@setfilename ../../info/auth
@settitle Emacs auth-source Library @value{VERSION}
address@hidden VERSION 0.1
address@hidden VERSION 0.2
@copying
This file describes the Emacs auth-source library.
@@ -67,19 +67,53 @@
@node Overview
@chapter Overview
-To be done.
+The auth-source library is a modern, extensible, enterprise-class
+authentication library. It uses the latest design patterns, has 1800
+unit tests, and has been featured in 21 industry conference keynote
+talks. It's future-proof, mathematically proven to be bug-free, and
+has 6 internal XML parsers just in case you ever need to eat up some
+memory.
+
+Just kidding. The auth-source library is simply a way for Emacs and
+Gnus, among others, to find the answer to the old burning question ``I
+have a server name and a port, what are my user name and password?''
+
+The auth-source library actually supports more than just the user name
+(known as the login) or the password, but only those two are in use
+today in Emacs or Gnus. Similarly, the auth-source library can in
+theory support multiple storage formats, but currently it only
+understands the classic ``netrc'' format, examples of which you can
+see later in this document.
@node Help for users
@chapter Help for users
-If you have problems with the port, turn up @code{gnus-verbose} and
-see what port the library is checking. Ditto for any other
-problems, your first step is to see what's being checked.
+``Netrc'' files are a de facto standard. They look like this:
address@hidden
+machine mymachine login myloginname password mypassword port myport
address@hidden example
-Setup:
+The port is optional. If it's missing, auth-source will assume any
+port is OK. Actually the port is a protocol name or a port number so
+you can have separate entries for port 143 and for protocol ``imap''
+if you fancy that. Anyway, you can just omit the port if you don't
+need it. ``Netrc'' files are usually called @code{.authinfo} or
address@hidden; nowadays @code{.authinfo} seems to be more popular and
+the auth-source library encourages this confusion by making it the
+default, as you'll see later.
+
+If you have problems with the port, set @var{auth-source-debug} to t
+and see what port the library is checking in the @code{*Messages*}
+buffer. Ditto for any other problems, your first step is always to
+see what's being checked. The second step, of course, is to write a
+blog entry about it and wait for the answer in the comments.
+
+You can customize the variable @var{auth-sources}. The following may
+be needed if you are using an older version of Emacs or if the
+auth-source library is not loaded for some other reason.
@lisp
-(require 'auth-source)
+(require 'auth-source) ;; probably not necessary
(customize-variable 'auth-sources) ;; optional, do it once
@end lisp
@@ -93,22 +127,19 @@
(setq auth-sources '((:source "~/.authinfo.gpg" :host t :protocol t)))
@end lisp
-By adding multiple entries to that list with a particular host or
-protocol, you can have specific netrc files for that host or protocol.
+This says ``for any host and any protocol, use just that one file.''
+Sweet simplicity. In fact, this is already the default, so unless you
+want to move your netrc file, it will just work if you have that
+file. You may not, though, so make sure it exists.
+
+By adding multiple entries to @var{auth-sources} with a particular
+host or protocol, you can have specific netrc files for that host or
+protocol. Usually this is unnecessary but may make sense if you have
+shared netrc files or some other unusual setup (90% of Emacs users
+have unusual setups and the remaining 10% are @emph{really} unusual).
@end defvar
-
-``Netrc'' files are a de facto standard. They look like this:
address@hidden
-machine mymachine login myloginname password mypassword port myport
address@hidden example
-
-The port is optional. If it's missing, auth-source will assume any
-port is OK. Actually the port is a protocol name or a port number so
-you can have separate entries for port 143 and for protocol ``imap''
-if you fancy that.
-
If you don't customize @var{auth-sources}, you'll have to live with
the defaults: any host and any port are looked up in the netrc
file @code{~/.authinfo.gpg}. This is an encrypted file if and only if
@@ -117,9 +148,26 @@
@lisp
(require 'epa-file)
(epa-file-enable)
-(setq epa-file-cache-passphrase-for-symmetric-encryption t) ; VERY important
+;;; VERY important if you want symmetric encryption
+;;; irrelevant if you don't
+(setq epa-file-cache-passphrase-for-symmetric-encryption t)
@end lisp
+The simplest working netrc line example is one without a port.
+
address@hidden
+machine YOURMACHINE login YOU password YOURPASSWORD
address@hidden example
+
+This will match any authentication port. Simple, right? But what if
+there's a SMTP server on port 433 of that machine that needs a
+different password from the IMAP server?
+
address@hidden
+machine YOURMACHINE login YOU password SMTPPASSWORD port 433
+machine YOURMACHINE login YOU password GENERALPASSWORD
address@hidden example
+
For url-auth authentication (HTTP/HTTPS), you need to put this in your
netrc file:
@@ -127,9 +175,9 @@
machine yourmachine.com:80 port http login testuser password testpass
@end example
-This will match any realm and authentication method (basic or
-digest). If you want finer controls, explore the url-auth source
-code and variables.
+This will match any realm and authentication method (basic or digest)
+over HTTP. HTTPS is set up similarly. If you want finer controls,
+explore the url-auth source code and variables.
For Tramp authentication, use:
@@ -139,7 +187,8 @@
Note that the port denotes the Tramp connection method. When you
don't use a port entry, you match any Tramp method, as explained
-earlier.
+earlier. Since Tramp has about 88 connection methods, this may be
+necessary if you have an unusual (see earlier comment on those) setup.
@node Help for developers
@chapter Help for developers
@@ -149,14 +198,17 @@
@defun auth-source-user-or-password mode host port
Retrieve appropriate authentication tokens, determined by @var{mode},
-for host @var{host} and @var{port}. If @code{gnus-verbose} is 9 or
-higher, debugging messages will be printed.
+for host @var{host} and @var{port}. If @var{auth-source-debug} is t,
+debugging messages will be printed. Set @var{auth-source-debug} to a
+function to use that function for logging. The parameters passed will
+be the same that the @code{message} function takes, that is, a string
+formatting spec and optional parameters.
If @var{mode} is a list of strings, the function will return a list of
-strings or @code{nil} objects. If it's a string, the function will
-return a string or a @code{nil} object. Currently only the modes
-``login'' and ``password'' are recognized but more may be added in the
-future.
+strings or @code{nil} objects (thus you can avoid parsing the netrc
+file more than once). If it's a string, the function will return a
+string or a @code{nil} object. Currently only the modes ``login'' and
+``password'' are recognized but more may be added in the future.
@var{host} is a string containing the host name.
Index: lisp/gnus/mml.el
===================================================================
RCS file: /cvsroot/emacs/emacs/lisp/gnus/mml.el,v
retrieving revision 1.61
retrieving revision 1.62
diff -u -b -r1.61 -r1.62
--- lisp/gnus/mml.el 3 Mar 2009 02:32:23 -0000 1.61
+++ lisp/gnus/mml.el 29 Aug 2009 00:27:13 -0000 1.62
@@ -1292,7 +1292,6 @@
(description (mml-minibuffer-read-description))
(disposition (mml-minibuffer-read-disposition type nil file)))
(list file type description disposition)))
- (save-excursion
(unless (message-in-body-p) (goto-char (point-max)))
(mml-insert-empty-tag 'part
'type type
@@ -1300,7 +1299,7 @@
;; string w/ text properties :-/
'filename (mm-substring-no-properties file)
'disposition (or disposition "attachment")
- 'description description)))
+ 'description description))
(defun mml-dnd-attach-file (uri action)
"Attach a drag and drop file.
@@ -1336,11 +1335,10 @@
(description (mml-minibuffer-read-description))
(disposition (mml-minibuffer-read-disposition type nil)))
(list buffer type description disposition)))
- (save-excursion
(unless (message-in-body-p) (goto-char (point-max)))
(mml-insert-empty-tag 'part 'type type 'buffer buffer
'disposition disposition
- 'description description)))
+ 'description description))
(defun mml-attach-external (file &optional type description)
"Attach an external file into the buffer.
@@ -1351,10 +1349,9 @@
(type (mml-minibuffer-read-type file))
(description (mml-minibuffer-read-description)))
(list file type description)))
- (save-excursion
(unless (message-in-body-p) (goto-char (point-max)))
(mml-insert-empty-tag 'external 'type type 'name file
- 'disposition "attachment" 'description description)))
+ 'disposition "attachment" 'description description))
(defun mml-insert-multipart (&optional type)
(interactive (list (completing-read "Multipart type (default mixed): "
Index: lisp/gnus/ChangeLog
===================================================================
RCS file: /cvsroot/emacs/emacs/lisp/gnus/ChangeLog,v
retrieving revision 1.818
retrieving revision 1.819
diff -u -b -r1.818 -r1.819
--- lisp/gnus/ChangeLog 28 Aug 2009 17:02:55 -0000 1.818
+++ lisp/gnus/ChangeLog 29 Aug 2009 00:27:13 -0000 1.819
@@ -1,3 +1,8 @@
+2009-08-28 Katsumi Yamaoka <address@hidden>
+
+ * mml.el (mml-attach-file, mml-attach-buffer, mml-attach-external):
+ Don't save excursion.
+
2009-08-28 Stefan Monnier <address@hidden>
* nnheader.el (nnheader-find-file-noselect):
@@ -23,6 +28,21 @@
* gnus-art.el (gnus-button-patch): Use forward-line rather than
goto-line.
+2009-08-12 Katsumi Yamaoka <address@hidden>
+
+ * gnus-group.el (gnus-safe-html-newsgroups): New user option.
+
+ * gnus-art.el (gnus-bind-safe-url-regexp): New macro.
+ (gnus-mime-view-all-parts, gnus-mime-view-part-internally)
+ (gnus-mm-display-part, gnus-mime-display-single)
+ (gnus-mime-display-alternative): Use gnus-bind-safe-url-regexp to
+ override mm-w3m-safe-url-regexp according to gnus-safe-html-newsgroups.
+
+ * gnus-sum.el
+ (gnus-mark-copied-or-moved-articles-as-expirable): New user option.
+ (gnus-summary-move-article): Add expirable mark to articles copied or
+ moved to group that has auto-expire turned on if the option is non-nil.
+
2009-07-24 Glenn Morris <address@hidden>
* gnus-demon.el (gnus-demon-add-nntp-close-connection):
Index: lisp/gnus/gnus-sum.el
===================================================================
RCS file: /cvsroot/emacs/emacs/lisp/gnus/gnus-sum.el,v
retrieving revision 1.140
retrieving revision 1.141
diff -u -b -r1.140 -r1.141
--- lisp/gnus/gnus-sum.el 31 Jan 2009 02:57:13 -0000 1.140
+++ lisp/gnus/gnus-sum.el 29 Aug 2009 00:27:14 -0000 1.141
@@ -668,6 +668,17 @@
:group 'gnus-summary
:type 'boolean)
+(defcustom gnus-mark-copied-or-moved-articles-as-expirable nil
+ "If non-nil, mark articles copied or moved to auto-expire group as expirable.
+If nil, the expirable marks will be unchanged except that the marks
+will be removed when copying or moving articles to a group that has
+not turned auto-expire on. If non-nil, articles that have been read
+will be marked as expirable when being copied or moved to a group in
+which auto-expire is turned on."
+ :version "23.2"
+ :type 'boolean
+ :group 'gnus-summary-marks)
+
(defcustom gnus-view-pseudos nil
"*If `automatic', pseudo-articles will be viewed automatically.
If `not-confirm', pseudos will be viewed automatically, and the user
@@ -9753,7 +9764,8 @@
(list (cdr art-group)))))
;; See whether the article is to be put in the cache.
- (let ((marks (if (gnus-group-auto-expirable-p to-group)
+ (let* ((expirable (gnus-group-auto-expirable-p to-group))
+ (marks (if expirable
gnus-article-mark-lists
(delete '(expirable . expire)
(copy-sequence gnus-article-mark-lists))))
@@ -9796,6 +9808,17 @@
to-group (cdar marks) (list to-article) info)))
(setq marks (cdr marks)))
+ (when (and expirable
+ gnus-mark-copied-or-moved-articles-as-expirable
+ (not (memq 'expire to-marks)))
+ ;; Mark this article as expirable.
+ (push 'expire to-marks)
+ (when (equal to-group gnus-newsgroup-name)
+ (push to-article gnus-newsgroup-expirable))
+ ;; Copy the expirable mark to other group.
+ (gnus-add-marked-articles
+ to-group 'expire (list to-article) info))
+
(gnus-request-set-mark
to-group (list (list (list to-article) 'add to-marks))))
Index: lisp/gnus/gnus-group.el
===================================================================
RCS file: /cvsroot/emacs/emacs/lisp/gnus/gnus-group.el,v
retrieving revision 1.79
retrieving revision 1.80
diff -u -b -r1.79 -r1.80
--- lisp/gnus/gnus-group.el 10 Jul 2009 12:05:14 -0000 1.79
+++ lisp/gnus/gnus-group.el 29 Aug 2009 00:27:14 -0000 1.80
@@ -110,6 +110,18 @@
:group 'gnus-group-listing
:type '(choice regexp (const nil)))
+(defcustom gnus-safe-html-newsgroups "\\`nnrss[+:]"
+ "Groups in which links in html articles are considered all safe.
+The value may be a regexp matching those groups, a list of group names,
+or nil. This overrides `mm-w3m-safe-url-regexp' (which see). This is
+effective only when emacs-w3m renders html articles, i.e., in the case
+`mm-text-html-renderer' is set to `w3m'."
+ :version "23.2"
+ :group 'gnus-group-various
+ :type '(choice regexp
+ (repeat :tag "List of group names" (string :tag "Group"))
+ (const nil)))
+
(defcustom gnus-list-groups-with-ticked-articles t
"*If non-nil, list groups that have only ticked articles.
If nil, only list groups that have unread articles."
Index: lisp/gnus/gnus-art.el
===================================================================
RCS file: /cvsroot/emacs/emacs/lisp/gnus/gnus-art.el,v
retrieving revision 1.181
retrieving revision 1.182
diff -u -b -r1.181 -r1.182
--- lisp/gnus/gnus-art.el 22 Aug 2009 19:13:34 -0000 1.181
+++ lisp/gnus/gnus-art.el 29 Aug 2009 00:27:15 -0000 1.182
@@ -4740,6 +4740,23 @@
(vector (caddr c) (car c) :active t))
gnus-mime-button-commands)))
+(defmacro gnus-bind-safe-url-regexp (&rest body)
+ "Bind `mm-w3m-safe-url-regexp' according to `gnus-safe-html-newsgroups'."
+ `(let ((mm-w3m-safe-url-regexp
+ (let ((group (if (and (eq major-mode 'gnus-article-mode)
+ (gnus-buffer-live-p
+ gnus-article-current-summary))
+ (with-current-buffer gnus-article-current-summary
+ gnus-newsgroup-name)
+ gnus-newsgroup-name)))
+ (if (cond ((stringp gnus-safe-html-newsgroups)
+ (string-match gnus-safe-html-newsgroups group))
+ ((consp gnus-safe-html-newsgroups)
+ (member group gnus-safe-html-newsgroups)))
+ nil
+ mm-w3m-safe-url-regexp))))
+ ,@body))
+
(defun gnus-mime-button-menu (event prefix)
"Construct a context-sensitive menu of MIME commands."
(interactive "e\nP")
@@ -4765,7 +4782,7 @@
(or (search-forward "\n\n") (goto-char (point-max)))
(let ((inhibit-read-only t))
(delete-region (point) (point-max))
- (mm-display-parts handles))))))
+ (gnus-bind-safe-url-regexp (mm-display-parts handles)))))))
(defun gnus-article-jump-to-part (n)
"Jump to MIME part N."
@@ -5267,7 +5284,7 @@
(when handle
(if (mm-handle-undisplayer handle)
(mm-remove-part handle)
- (mm-display-part handle))))))
+ (gnus-bind-safe-url-regexp (mm-display-part handle)))))))
(defun gnus-mime-action-on-part (&optional action)
"Do something with the MIME attachment at \(point\)."
@@ -5488,7 +5505,7 @@
(save-restriction
(narrow-to-region (point)
(if (eobp) (point) (1+ (point))))
- (mm-display-part handle)
+ (gnus-bind-safe-url-regexp (mm-display-part handle))
;; We narrow to the part itself and
;; then call the treatment functions.
(goto-char (point-min))
@@ -5767,7 +5784,7 @@
(set-buffer gnus-summary-buffer)
(error))
gnus-newsgroup-ignored-charsets)))
- (mm-display-part handle t))
+ (gnus-bind-safe-url-regexp (mm-display-part handle t)))
(goto-char (point-max)))
((and text not-attachment)
(when move
@@ -5903,7 +5920,7 @@
(mail-parse-ignored-charsets
(with-current-buffer gnus-summary-buffer
gnus-newsgroup-ignored-charsets)))
- (mm-display-part preferred)
+ (gnus-bind-safe-url-regexp (mm-display-part preferred))
;; Do highlighting.
(save-excursion
(save-restriction
Index: etc/GNUS-NEWS
===================================================================
RCS file: /cvsroot/emacs/emacs/etc/GNUS-NEWS,v
retrieving revision 1.23
retrieving revision 1.24
diff -u -b -r1.23 -r1.24
--- etc/GNUS-NEWS 5 Feb 2009 02:34:36 -0000 1.23
+++ etc/GNUS-NEWS 29 Aug 2009 00:27:15 -0000 1.24
@@ -249,6 +249,14 @@
** The `all.SCORE' file can be edited from the group buffer using `W e'.
+** You can set `gnus-mark-copied-or-moved-articles-as-expirable' to a
+non-`nil' value so that articles that have been read may be marked as
+expirable automatically when copying or moving them to a group that has
+auto-expire turned on. The default is `nil' and copying and moving of
+articles behave as before; i.e., the expirable marks will be unchanged
+except that the marks will be removed when copying or moving articles to
+a group that has not turned auto-expire on. *Note Expiring Mail::.
+
* For older news, see Gnus info node "New Features".
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Emacs-diffs] emacs doc/misc/gnus.texi doc/misc/emacs-mime.te...,
Miles Bader <=