[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] /srv/bzr/emacs/trunk r103678: mm-uu.el (mm-uu-dissect-text
From: |
Katsumi Yamaoka |
Subject: |
[Emacs-diffs] /srv/bzr/emacs/trunk r103678: mm-uu.el (mm-uu-dissect-text-parts): Only dissect handle that are inline. |
Date: |
Thu, 17 Mar 2011 11:30:27 +0000 |
User-agent: |
Bazaar (2.0.3) |
------------------------------------------------------------
revno: 103678
author: Julien Danjou <address@hidden>
committer: Katsumi Yamaoka <address@hidden>
branch nick: trunk
timestamp: Thu 2011-03-17 11:30:27 +0000
message:
mm-uu.el (mm-uu-dissect-text-parts): Only dissect handle that are inline.
gnus-art.el (article-hide-list-identifiers): Use
gnus-group-get-list-identifiers.
* gnus-sum.el (gnus-group-get-list-identifiers): New function.
(gnus-summary-remove-list-identifiers): Use gnus-group-get-list-identifiers
to get regexp.
(gnus-select-newsgroup, gnus-summary-insert-subject,
gnus-summary-insert-articles): Call gnus-summary-remove-list-identifiers
unconditionally.
modified:
lisp/gnus/ChangeLog
lisp/gnus/gnus-art.el
lisp/gnus/gnus-sum.el
lisp/gnus/mm-uu.el
=== modified file 'lisp/gnus/ChangeLog'
--- a/lisp/gnus/ChangeLog 2011-03-15 22:57:48 +0000
+++ b/lisp/gnus/ChangeLog 2011-03-17 11:30:27 +0000
@@ -1,3 +1,18 @@
+2011-03-16 Julien Danjou <address@hidden>
+
+ * mm-uu.el (mm-uu-dissect-text-parts): Only dissect handle that are
+ inline.
+
+ * gnus-art.el (article-hide-list-identifiers): Use
+ gnus-group-get-list-identifiers.
+
+ * gnus-sum.el (gnus-group-get-list-identifiers): New function.
+ (gnus-summary-remove-list-identifiers): Use
+ gnus-group-get-list-identifiers to get regexp.
+ (gnus-select-newsgroup, gnus-summary-insert-subject)
+ (gnus-summary-insert-articles): Call
+ gnus-summary-remove-list-identifiers unconditionally.
+
2011-03-15 Lars Magne Ingebrigtsen <address@hidden>
* gnus-sum.el (gnus-articles-to-read): Revert back to old behaviour if
=== modified file 'lisp/gnus/gnus-art.el'
--- a/lisp/gnus/gnus-art.el 2011-03-15 22:38:41 +0000
+++ b/lisp/gnus/gnus-art.el 2011-03-17 11:30:27 +0000
@@ -3076,10 +3076,7 @@
The `gnus-list-identifiers' variable specifies what to do."
(interactive)
(let ((inhibit-point-motion-hooks t)
- (regexp (or (gnus-parameter-list-identifier gnus-newsgroup-name)
- (if (consp gnus-list-identifiers)
- (mapconcat 'identity gnus-list-identifiers " *\\|")
- gnus-list-identifiers)))
+ (regexp (gnus-group-get-list-identifiers gnus-newsgroup-name))
(inhibit-read-only t))
(when regexp
(save-excursion
=== modified file 'lisp/gnus/gnus-sum.el'
--- a/lisp/gnus/gnus-sum.el 2011-03-15 22:57:48 +0000
+++ b/lisp/gnus/gnus-sum.el 2011-03-17 11:30:27 +0000
@@ -5510,12 +5510,17 @@
(cdr (assq number gnus-newsgroup-scored))
(memq number gnus-newsgroup-processable))))))
+(defun gnus-group-get-list-identifiers (group)
+ "Get list identifier regexp for GROUP."
+ (or (gnus-parameter-list-identifier group)
+ (if (consp gnus-list-identifiers)
+ (mapconcat 'identity gnus-list-identifiers " *\\|")
+ gnus-list-identifiers)))
+
(defun gnus-summary-remove-list-identifiers ()
"Remove list identifiers in `gnus-list-identifiers' from articles in the
current group."
- (let ((regexp (if (consp gnus-list-identifiers)
- (mapconcat 'identity gnus-list-identifiers " *\\|")
- gnus-list-identifiers))
- changed subject)
+ (let ((regexp (gnus-group-get-list-identifiers gnus-newsgroup-name))
+ changed subject)
(when regexp
(setq regexp (concat "^\\(?:R[Ee]: +\\)*\\(" regexp " *\\)"))
(dolist (header gnus-newsgroup-headers)
@@ -5707,8 +5712,7 @@
(when gnus-agent
(gnus-agent-get-undownloaded-list))
;; Remove list identifiers from subject
- (when gnus-list-identifiers
- (gnus-summary-remove-list-identifiers))
+ (gnus-summary-remove-list-identifiers)
;; Check whether auto-expire is to be done in this group.
(setq gnus-newsgroup-auto-expire
(gnus-group-auto-expirable-p group))
@@ -6576,9 +6580,8 @@
(1+ (point-at-eol))
(gnus-delete-line))))))
;; Remove list identifiers from subject.
- (when gnus-list-identifiers
- (let ((gnus-newsgroup-headers (list header)))
- (gnus-summary-remove-list-identifiers)))
+ (let ((gnus-newsgroup-headers (list header)))
+ (gnus-summary-remove-list-identifiers))
(when old-header
(mail-header-set-number header (mail-header-number old-header)))
(setq gnus-newsgroup-sparse
@@ -12682,8 +12685,7 @@
(when gnus-agent
(gnus-agent-get-undownloaded-list))
;; Remove list identifiers from subject
- (when gnus-list-identifiers
- (gnus-summary-remove-list-identifiers))
+ (gnus-summary-remove-list-identifiers)
;; First and last article in this newsgroup.
(when gnus-newsgroup-headers
(setq gnus-newsgroup-begin
=== modified file 'lisp/gnus/mm-uu.el'
--- a/lisp/gnus/mm-uu.el 2011-03-12 08:53:34 +0000
+++ b/lisp/gnus/mm-uu.el 2011-03-17 11:30:27 +0000
@@ -705,6 +705,8 @@
;; Mutt still uses application/pgp even though
;; it has already been withdrawn.
(string-match "\\`text/\\|\\`application/pgp\\'" type)
+ (equal (car (mm-handle-disposition handle))
+ "inline")
(setq
children
(with-current-buffer buffer
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Emacs-diffs] /srv/bzr/emacs/trunk r103678: mm-uu.el (mm-uu-dissect-text-parts): Only dissect handle that are inline.,
Katsumi Yamaoka <=