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

[Katsumi Yamaoka]

------------------------------------------------------------
revno: 102422
author: Gnus developers
committer: Katsumi Yamaoka <address@hidden>
branch nick: trunk
timestamp: Wed 2010-11-17 22:15:24 +0000
message:
  Merge changes made in Gnus trunk.
  
  nnir.el (nnir-run-imap): Order the article list separately for each group.
  shr.el (shr-put-image): Break lines when inserting big pictures.
  mml2015.el (mml2015-epg-encrypt): Fix two cons with missing sender.
modified:
  lisp/gnus/ChangeLog
  lisp/gnus/mml2015.el
  lisp/gnus/nnir.el
  lisp/gnus/shr.el

=== modified file 'lisp/gnus/ChangeLog'
--- a/lisp/gnus/ChangeLog       2010-11-17 08:28:15 +0000
+++ b/lisp/gnus/ChangeLog       2010-11-17 22:15:24 +0000
@@ -1,3 +1,17 @@
+2010-11-17  Lars Magne Ingebrigtsen  <address@hidden>
+
+       * shr.el (shr-put-image): Break lines when inserting big pictures.
+
+2010-11-17  Daniel Dehennin  <address@hidden>
+
+       * mml2015.el (mml2015-epg-encrypt): Fix two cons with missing
+       sender, thanks Katsumi Yamaoka.
+
+2010-11-17  Andrew Cohen  <address@hidden>
+
+       * nnir.el (nnir-run-imap): Reverse the article list for each group
+       rather than the whole list.
+
 2010-11-17  Katsumi Yamaoka  <address@hidden>
 
        * shr.el (shr-image-displayer): Protect function against non-existent

=== modified file 'lisp/gnus/mml2015.el'
--- a/lisp/gnus/mml2015.el      2010-11-16 23:05:02 +0000
+++ b/lisp/gnus/mml2015.el      2010-11-17 22:15:24 +0000
@@ -1062,7 +1062,7 @@
                     (epa-select-keys context "\
 Select keys for signing.
 If no one is selected, default secret key is used.  "
-                                     (cons mml2015-signers) t)
+                                     (cons sender mml2015-signers) t)
                   (if (or sender mml2015-signers)
                       (delq nil
                             (mapcar
@@ -1077,7 +1077,7 @@
                                              signer)))
                                  (error "No secret key for %s" signer))
                                signer-key)
-                             (cons mml2015-signers))))))))
+                             (cons sender mml2015-signers))))))))
       (epg-context-set-signers context signers))
     (epg-context-set-armor context t)
     (epg-context-set-textmode context t)

=== modified file 'lisp/gnus/nnir.el'
--- a/lisp/gnus/nnir.el 2010-11-11 04:05:15 +0000
+++ b/lisp/gnus/nnir.el 2010-11-17 22:15:24 +0000
@@ -677,14 +677,14 @@
                         (cdr (assoc nnir-imap-default-search-key
                                     nnir-imap-search-arguments))))
           (gnus-inhibit-demon t)
-         (groups (or groups (nnir-get-active srv)))
-          artlist)
+         (groups (or groups (nnir-get-active srv))))
       (message "Opening server %s" server)
       (apply
        'vconcat
        (mapcar
        (lambda (x)
-         (let ((group x))
+         (let ((group x)
+               artlist)
            (condition-case ()
                (when (nnimap-possibly-change-group
                       (gnus-group-short-name group) server)

=== modified file 'lisp/gnus/shr.el'
--- a/lisp/gnus/shr.el  2010-11-17 08:28:15 +0000
+++ b/lisp/gnus/shr.el  2010-11-17 22:15:24 +0000
@@ -388,6 +388,11 @@
       (let ((image (ignore-errors
                      (shr-rescale-image data))))
         (when image
+         ;; When inserting big-ish pictures, put them at the
+         ;; beginning of the line.
+         (when (and (> (current-column) 0)
+                    (> (car (image-size image t)) 400))
+           (insert "\n"))
          (insert-image image (or alt "*"))))
     (insert alt)))