[Emacs-diffs] /srv/bzr/emacs/trunk r101979: Merge changes made in Gnus trunk.

[Katsumi Yamaoka]

------------------------------------------------------------
revno: 101979
author: Gnus developers
committer: Katsumi Yamaoka <address@hidden>
branch nick: trunk
timestamp: Sat 2010-10-16 01:55:08 +0000
message:
  Merge changes made in Gnus trunk.
  
  nnimap.el: Use nnheader-message throughout.
  gnus.el: Autoload gnus-html-show-images.
  mml.el (mml-generate-mime-1): Add `mml-enable-flow' variable to add a 
possibility to disable format=flow encoding when using hard newlines.
  gnus-diary.el (gnus-diary-check-message): Fix gnus-completing-read call.
  gnus-sum.el (gnus-summary-refer-thread): unconditionally ignore duplicates.
modified:
  lisp/gnus/ChangeLog
  lisp/gnus/gnus-diary.el
  lisp/gnus/gnus-sum.el
  lisp/gnus/gnus.el
  lisp/gnus/mml.el
  lisp/gnus/nnimap.el

=== modified file 'lisp/gnus/ChangeLog'
--- a/lisp/gnus/ChangeLog       2010-10-15 10:24:10 +0000
+++ b/lisp/gnus/ChangeLog       2010-10-16 01:55:08 +0000
@@ -1,12 +1,30 @@
+2010-10-15  Andrew Cohen  <address@hidden>
+
+       * gnus-sum.el (gnus-summary-refer-thread): unconditionally ignore
+       duplicates.
+
+2010-10-15  Kan-Ru Chen  <address@hidden>  (tiny change)
+
+       * gnus-diary.el (gnus-diary-check-message): Fix gnus-completing-read
+       call.
+
 2010-10-15  Lars Magne Ingebrigtsen  <address@hidden>
 
+       * gnus.el: Autoload gnus-html-show-images.
+
+       * nnimap.el: Use nnheader-message throughout.
+
        * shr.el (shr-tag-img): Ignore images with no data.
 
+2010-10-15  Julien Danjou  <address@hidden>
+
+       * mml.el (mml-generate-mime-1): Add `mml-enable-flow' variable to add a
+       possibility to disable format=flow encoding when using hard newlines.
+
 2010-10-15  Katsumi Yamaoka  <address@hidden>
 
-       * shr.el (shr-generic): Remove trailing space.
-       (shr-insert): Remove space inserted before or after a breakable
-       character or at the beginning or the end of a line.
+       * shr.el (shr-insert): Remove space inserted before or after a
+       breakable character or at the beginning or the end of a line.
        (shr-find-fill-point): Do kinsoku; find the second best point or give
        it up if there's no breakable point.
 

=== modified file 'lisp/gnus/gnus-diary.el'
--- a/lisp/gnus/gnus-diary.el   2010-09-30 08:39:23 +0000
+++ b/lisp/gnus/gnus-diary.el   2010-10-16 01:55:08 +0000
@@ -368,7 +368,7 @@
                                 header ": ")))
             (setq value
                   (if (listp (nth 1 head))
-                      (gnus-completing-read prompt (cons '("*" nil) (nth 1 
head))
+                      (gnus-completing-read prompt (cons "*" (mapcar 'car (nth 
1 head)))
                                              t value
                                              'gnus-diary-header-value-history)
                     (read-string prompt value

=== modified file 'lisp/gnus/gnus-sum.el'
--- a/lisp/gnus/gnus-sum.el     2010-10-14 22:39:54 +0000
+++ b/lisp/gnus/gnus-sum.el     2010-10-16 01:55:08 +0000
@@ -8830,6 +8830,7 @@
 variable."
   (interactive "P")
   (let ((id (mail-header-id (gnus-summary-article-header)))
+       (gnus-summary-ignore-duplicates t)
        (limit (if limit (prefix-numeric-value limit)
                 gnus-refer-thread-limit)))
     (if  (gnus-check-backend-function 'request-thread gnus-newsgroup-name)

=== modified file 'lisp/gnus/gnus.el'
--- a/lisp/gnus/gnus.el 2010-10-11 23:29:33 +0000
+++ b/lisp/gnus/gnus.el 2010-10-16 01:55:08 +0000
@@ -2911,6 +2911,7 @@
       gnus-start-date-timer gnus-stop-date-timer
       gnus-mime-view-all-parts)
      ("gnus-int" gnus-request-type)
+     ("gnus-html" gnus-html-show-images)
      ("gnus-start" gnus-newsrc-parse-options gnus-1 gnus-no-server-1
       gnus-dribble-enter gnus-read-init-file gnus-dribble-touch
       gnus-check-reasonable-setup)

=== modified file 'lisp/gnus/mml.el'
--- a/lisp/gnus/mml.el  2010-10-11 23:29:33 +0000
+++ b/lisp/gnus/mml.el  2010-10-16 01:55:08 +0000
@@ -128,6 +128,14 @@
   :type 'boolean
   :group 'message)
 
+(defcustom mml-enable-flowed t
+  "If non-nil, enable format=flowed usage when encoding a message.
+This is only performed when filling on text/plain with hard
+newlines in the text."
+  :version "24.1"
+  :type 'boolean
+  :group 'message)
+
 (defvar mml-tweak-type-alist nil
   "A list of (TYPE . FUNCTION) for tweaking MML parts.
 TYPE is a string containing a regexp to match the MIME type.  FUNCTION
@@ -546,7 +554,8 @@
                    ;; in the mml tag or it says "flowed" and there
                    ;; actually are hard newlines in the text.
                    (let (use-hard-newlines)
-                     (when (and (string= type "text/plain")
+                     (when (and mml-enable-flowed
+                                 (string= type "text/plain")
                                 (not (string= (cdr (assq 'sign cont)) "pgp"))
                                 (or (null (assq 'format cont))
                                     (string= (cdr (assq 'format cont))

=== modified file 'lisp/gnus/nnimap.el'
--- a/lisp/gnus/nnimap.el       2010-10-14 22:39:54 +0000
+++ b/lisp/gnus/nnimap.el       2010-10-16 01:55:08 +0000
@@ -304,7 +304,8 @@
               ((or (eq nnimap-stream 'network)
                    (and (eq nnimap-stream 'starttls)
                         (fboundp 'open-gnutls-stream)))
-               (message "Opening connection to %s..." nnimap-address)
+               (nnheader-message 7 "Opening connection to %s..."
+                                 nnimap-address)
                (open-network-stream
                 "*nnimap*" (current-buffer) nnimap-address
                 (setq port
@@ -314,13 +315,14 @@
                             "143"))))
                '("143" "imap"))
               ((eq nnimap-stream 'shell)
-               (message "Opening connection to %s via shell..." nnimap-address)
+               (nnheader-message 7 "Opening connection to %s via shell..."
+                                 nnimap-address)
                (nnimap-open-shell-stream
                 "*nnimap*" (current-buffer) nnimap-address
                 (setq port (or nnimap-server-port "imap")))
                '("imap"))
               ((eq nnimap-stream 'starttls)
-               (message "Opening connection to %s via starttls..."
+               (nnheader-message 7 "Opening connection to %s via starttls..."
                         nnimap-address)
                (let ((tls-program
                       '("openssl s_client -connect %h:%p -no_ssl2 -ign_eof 
-starttls imap")))
@@ -329,7 +331,8 @@
                   (setq port (or nnimap-server-port "imap"))))
                '("imap"))
               ((memq nnimap-stream '(ssl tls))
-               (message "Opening connection to %s via tls..." nnimap-address)
+               (nnheader-message 7 "Opening connection to %s via tls..."
+                                 nnimap-address)
                (funcall (if (fboundp 'open-gnutls-stream)
                             'open-gnutls-stream
                           'open-tls-stream)
@@ -734,7 +737,7 @@
    ((and force
         (eq nnmail-expiry-target 'delete))
     (unless (nnimap-delete-article (gnus-compress-sequence articles))
-      (message "Article marked for deletion, but not expunged."))
+      (nnheader-message 7 "Article marked for deletion, but not expunged."))
     nil)
    (t
     (let ((deletable-articles
@@ -760,7 +763,7 @@
       (let ((target nnmail-expiry-target))
        (with-temp-buffer
          (when (nnimap-request-article article group server (current-buffer))
-           (message "Expiring article %s:%d" group article)
+           (nnheader-message 7 "Expiring article %s:%d" group article)
            (when (functionp target)
              (setq target (funcall target group)))
            (when (and target
@@ -830,7 +833,7 @@
   (when (and (nnimap-possibly-change-group nil server)
             nnimap-inbox
             nnimap-split-methods)
-    (message "nnimap %s splitting mail..." server)
+    (nnheader-message 7 "nnimap %s splitting mail..." server)
     (nnimap-split-incoming-mail)))
 
 (defun nnimap-marks-to-flags (marks)
@@ -882,7 +885,7 @@
        (let ((result (nnimap-get-response sequence)))
          (if (not (car result))
              (progn
-               (message "%s" (nnheader-get-report-string 'nnimap))
+               (nnheader-message 7 "%s" (nnheader-get-report-string 'nnimap))
                nil)
            (cons group
                  (nnimap-find-article-by-message-id group message-id))))))))
@@ -1431,7 +1434,7 @@
                              (point-min))
                            t)))
            (when messagep
-             (message "nnimap read %dk" (/ (buffer-size) 1000)))
+             (nnheader-message 7 "nnimap read %dk" (/ (buffer-size) 1000)))
            (nnheader-accept-process-output process)
            (goto-char (point-max)))
           openp)