[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] /srv/bzr/emacs/trunk r101307: message.el (message-generate
From: |
Katsumi Yamaoka |
Subject: |
[Emacs-diffs] /srv/bzr/emacs/trunk r101307: message.el (message-generate-hashcash): Change default to 'opportunistic if hashcash is installed; gnus-html.el (gnus-html-put-image): Only call image-size once, since it's somewhat time-consuming on remote X servers. |
Date: |
Fri, 03 Sep 2010 00:55:58 +0000 |
User-agent: |
Bazaar (2.0.3) |
------------------------------------------------------------
revno: 101307
author: Lars Magne Ingebrigtsen <address@hidden>
committer: Katsumi Yamaoka <address@hidden>
branch nick: trunk
timestamp: Fri 2010-09-03 00:55:58 +0000
message:
message.el (message-generate-hashcash): Change default to 'opportunistic if
hashcash is installed; gnus-html.el (gnus-html-put-image): Only call image-size
once, since it's somewhat time-consuming on remote X servers.
modified:
lisp/gnus/ChangeLog
lisp/gnus/gnus-html.el
lisp/gnus/message.el
=== modified file 'lisp/gnus/ChangeLog'
--- a/lisp/gnus/ChangeLog 2010-09-02 14:10:03 +0000
+++ b/lisp/gnus/ChangeLog 2010-09-03 00:55:58 +0000
@@ -1,6 +1,11 @@
2010-09-02 Lars Magne Ingebrigtsen <address@hidden>
+ * message.el (message-generate-hashcash): Change default to
+ 'opportunistic if hashcash is installed.
+
* gnus-html.el (gnus-html-rescale-image): Fix up typo in rescaling.
+ (gnus-html-put-image): Only call image-size once, since it's somewhat
+ time-consuming on remote X servers.
2010-09-02 Katsumi Yamaoka <address@hidden>
=== modified file 'lisp/gnus/gnus-html.el'
--- a/lisp/gnus/gnus-html.el 2010-09-02 14:10:03 +0000
+++ b/lisp/gnus/gnus-html.el 2010-09-03 00:55:58 +0000
@@ -243,8 +243,10 @@
(defun gnus-html-put-image (file point string)
(when (display-graphic-p)
- (let ((image (ignore-errors
- (gnus-create-image file))))
+ (let* ((image (ignore-errors
+ (gnus-create-image file)))
+ (size (and image
+ (image-size image t))))
(save-excursion
(goto-char point)
(if (and image
@@ -252,10 +254,10 @@
;; seems to be a signal of a broken image.
(not (and (listp image)
(eq (plist-get (cdr image) :type) 'gif)
- (= (car (image-size image t)) 30)
- (= (cdr (image-size image t)) 30))))
+ (= (car size) 30)
+ (= (cdr size) 30))))
(progn
- (gnus-put-image (gnus-html-rescale-image image file)
+ (gnus-put-image (gnus-html-rescale-image image file size)
(gnus-string-or string "*"))
t)
(insert string)
@@ -265,12 +267,12 @@
(gnus-string-or string "*")))
nil)))))
-(defun gnus-html-rescale-image (image file)
+(defun gnus-html-rescale-image (image file size)
(if (or (not (fboundp 'imagemagick-types))
(not (get-buffer-window (current-buffer))))
image
- (let* ((width (car (image-size image t)))
- (height (cdr (image-size image t)))
+ (let* ((width (car size))
+ (height (cdr size))
(edges (window-pixel-edges (get-buffer-window (current-buffer))))
(window-width (truncate (* gnus-max-image-proportion
(- (nth 2 edges) (nth 0 edges)))))
@@ -280,8 +282,9 @@
(when (> height window-height)
(setq image (or (create-image file 'imagemagick nil
:height window-height)
- image)))
- (when (> (car (image-size image t)) window-width)
+ image))
+ (setq size (image-size image t)))
+ (when (> (car size) window-width)
(setq image (or
(create-image file 'imagemagick nil
:width window-width)
=== modified file 'lisp/gnus/message.el'
--- a/lisp/gnus/message.el 2010-09-02 03:27:17 +0000
+++ b/lisp/gnus/message.el 2010-09-03 00:55:58 +0000
@@ -1726,13 +1726,14 @@
(const :tag "Never" nil)
(const :tag "Always" t)))
-(defcustom message-generate-hashcash (if (executable-find "hashcash") t)
+(defcustom message-generate-hashcash (if (executable-find "hashcash")
'opportunistic)
"*Whether to generate X-Hashcash: headers.
If t, always generate hashcash headers. If `opportunistic',
only generate hashcash headers if it can be done without the user
waiting (i.e., only asynchronously).
You must have the \"hashcash\" binary installed, see `hashcash-path'."
+ :version "24.1"
:group 'message-headers
:link '(custom-manual "(message)Mail Headers")
:type '(choice (const :tag "Always" t)
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Emacs-diffs] /srv/bzr/emacs/trunk r101307: message.el (message-generate-hashcash): Change default to 'opportunistic if hashcash is installed; gnus-html.el (gnus-html-put-image): Only call image-size once, since it's somewhat time-consuming on remote X servers.,
Katsumi Yamaoka <=