procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Merge changes made in Gnus trunk.

Browse source 
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.
This commit is contained in:
Gnus developers 2010-11-17 22:15:24 +00:00 • committed by Katsumi Yamaoka
parent 146d267b8b
commit c0f9edcead
4 changed files with 24 additions and 5 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

14
lisp/gnus/ChangeLog
View file

@ -1,3 +1,17 @@
2010-11-17 Lars Magne Ingebrigtsen <larsi@gnus.org>
* shr.el (shr-put-image): Break lines when inserting big pictures.
2010-11-17 Daniel Dehennin <daniel.dehennin@baby-gnu.org>
* mml2015.el (mml2015-epg-encrypt): Fix two cons with missing
sender, thanks Katsumi Yamaoka.
2010-11-17 Andrew Cohen <cohen@andy.bu.edu>
* nnir.el (nnir-run-imap): Reverse the article list for each group
rather than the whole list.
2010-11-17 Katsumi Yamaoka <yamaoka@jpl.org>
* shr.el (shr-image-displayer): Protect function against non-existent

4
lisp/gnus/mml2015.el
View file

@ -1062,7 +1062,7 @@ If no one is selected, symmetric encryption will be performed. "
(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 @@ If no one is selected, default secret key is used. "
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)

6
lisp/gnus/nnir.el
View file

@ -677,14 +677,14 @@ details on the language and supported extensions"
(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)

5
lisp/gnus/shr.el
View file

@ -388,6 +388,11 @@ redirects somewhere else."
(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)))