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

Merge changes made in Gnus master

Browse source 
2012-12-26  Katsumi Yamaoka  <yamaoka@jpl.org>
* mml2015.el (mml2015-epg-key-image): Use mm-set-buffer-multibyte.

2012-12-25  Adam Sjøgren  <asjo@koldfront.dk>
* mml2015.el (mml2015-epg-key-image): use --attribute-fd rather than
  temporary file to get PGP key image. Pass no-show-photos when extracting
  image to avoid having it pop up twice.

2012-12-26  Lars Ingebrigtsen  <larsi@gnus.org>
 * gnus-art.el (gnus-article-treat-types): Include text/html as parts
 eligible for treatment.
This commit is contained in:
Gnus developers 2012-12-26 22:30:58 +00:00 • committed by Katsumi Yamaoka
parent 78269b95cf
commit da42d41a90
3 changed files with 25 additions and 11 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

13
lisp/gnus/ChangeLog
View file

@ -1,5 +1,18 @@
2012-12-26 Katsumi Yamaoka <yamaoka@jpl.org>
* mml2015.el (mml2015-epg-key-image): Use mm-set-buffer-multibyte.
2012-12-25 Adam Sjøgren <asjo@koldfront.dk>
* mml2015.el (mml2015-epg-key-image): use --attribute-fd rather than
temporary file to get PGP key image. Pass no-show-photos when extracting
image to avoid having it pop up twice.
2012-12-26 Lars Ingebrigtsen <larsi@gnus.org>
* gnus-art.el (gnus-article-treat-types): Include text/html as parts
eligible for treatment.
* gnus-util.el (gnus-goto-colon): Move to the beginning of the visual
lines. This makes summary commands with hidden threads work more
reliably.

4
lisp/gnus/gnus-art.el
View file

@ -1121,8 +1121,8 @@ parts. When nil, redisplay article."
(const :tag "Header" head)))
(defvar gnus-article-treat-types '("text/plain" "text/x-verbatim"
"text/x-patch")
"Parts to treat.")
"text/x-patch" "text/html")
"Part types eligible for treatment.")
(defvar gnus-inhibit-treatment nil
"Whether to inhibit treatment.")

19
lisp/gnus/mml2015.el
View file

@ -822,15 +822,16 @@ If set, it overrides the setting of `mml2015-sign-with-sender'."
(defun mml2015-epg-key-image (key-id)
"Return the image of a key, if any"
(let ((filename
(replace-regexp-in-string
"\n" ""
(shell-command-to-string
(format "%s --photo-viewer 'echo %%I >&2' --list-keys %s > /dev/null"
epg-gpg-program key-id)))))
(when (and (not (string-equal filename ""))
(file-exists-p filename))
(create-image filename))))
(with-temp-buffer
(mm-set-buffer-multibyte nil)
(let* ((coding-system-for-write 'binary)
(coding-system-for-read 'binary)
(data (shell-command-to-string
(format "%s --list-options no-show-photos --attribute-fd 2 --list-keys %s > /dev/null"
epg-gpg-program key-id))))
(when (> (length data) 0)
(insert (substring data 16))
(create-image (buffer-string) nil t)))))
(defun mml2015-epg-key-image-to-string (key-id)
"Return a string with the image of a key, if any"