[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] /srv/bzr/emacs/trunk r104741: Merge changes made in Gnus t
From: |
Katsumi Yamaoka |
Subject: |
[Emacs-diffs] /srv/bzr/emacs/trunk r104741: Merge changes made in Gnus trunk. |
Date: |
Sun, 26 Jun 2011 22:21:48 +0000 |
User-agent: |
Bazaar (2.3.1) |
------------------------------------------------------------
revno: 104741
author: Lars Magne Ingebrigtsen <address@hidden>
committer: Katsumi Yamaoka <address@hidden>
branch nick: trunk
timestamp: Sun 2011-06-26 22:21:48 +0000
message:
Merge changes made in Gnus trunk.
gnus-art.el (gnus-article-stop-animations): New function to stop any
animations going on at article exit time.
gnus-registry.el (gnus-registry-user-format-function-M): Reinstate, since
removing it breaks people upgrading.
shr.el (shr-put-image): Use the new interface for animating images.
(shr-put-image): Animate for 60 seconds.
modified:
lisp/gnus/ChangeLog
lisp/gnus/gnus-art.el
lisp/gnus/gnus-registry.el
lisp/gnus/gnus-sum.el
lisp/gnus/shr.el
=== modified file 'lisp/gnus/ChangeLog'
--- a/lisp/gnus/ChangeLog 2011-06-26 12:41:14 +0000
+++ b/lisp/gnus/ChangeLog 2011-06-26 22:21:48 +0000
@@ -1,7 +1,13 @@
2011-06-26 Lars Magne Ingebrigtsen <address@hidden>
- * dgnushack.el: Bind `gnutls-available-p' to `ignore' on XEmacs to
- avoid compiler warnings.
+ * gnus-art.el (gnus-article-stop-animations): New function to stop any
+ animations going on at article exit time.
+
+ * gnus-registry.el (gnus-registry-user-format-function-M): Reinstate,
+ since removing it breaks people upgrading.
+
+ * shr.el (shr-put-image): Use the new interface for animating images.
+ (shr-put-image): Animate for 60 seconds.
* auth-source.el (with-auth-source-epa-overrides): Fix compilation
error with `find-file-hooks' on Emacs 22.
@@ -554,12 +560,6 @@
* Makefile.in (fail-on-warning): New rule to compile with warnings as
errors.
- * dgnushack.el (dgnushack-compile-error-on-warn): New function to call
- dgnushack-compile with error-on-warn enabled, and to signal an error if
- clean compilation failed.
- (dgnushack-compile): New argument 'error-on-warn'. If non-nil, compile
- with `byte-compile-error-on-warn'. Return nil if errors occured.
-
2011-04-06 Teodor Zlatanov <address@hidden>
* gnus-registry.el: Don't use ERT if it's not available. Load it
=== modified file 'lisp/gnus/gnus-art.el'
--- a/lisp/gnus/gnus-art.el 2011-05-24 09:46:18 +0000
+++ b/lisp/gnus/gnus-art.el 2011-06-26 22:21:48 +0000
@@ -4509,6 +4509,7 @@
t)))
(with-current-buffer name
(set (make-local-variable 'gnus-article-edit-mode) nil)
+ (gnus-article-stop-animations)
(when gnus-article-mime-handles
(mm-destroy-parts gnus-article-mime-handles)
(setq gnus-article-mime-handles nil))
@@ -4533,6 +4534,12 @@
(gnus-start-date-timer gnus-article-update-date-headers))
(current-buffer)))))
+(defun gnus-article-stop-animations ()
+ (dolist (timer (and (boundp 'timer-list)
+ timer-list))
+ (when (eq (aref timer 5) 'image-animate-timeout)
+ (cancel-timer timer))))
+
;; Set article window start at LINE, where LINE is the number of lines
;; from the head of the article.
(defun gnus-article-set-window-start (&optional line)
=== modified file 'lisp/gnus/gnus-registry.el'
--- a/lisp/gnus/gnus-registry.el 2011-06-01 22:35:26 +0000
+++ b/lisp/gnus/gnus-registry.el 2011-06-26 22:21:48 +0000
@@ -914,6 +914,9 @@
(make-obsolete 'gnus-registry-user-format-function-M
'gnus-registry-article-marks-to-chars "24.1") ?
+(defalias 'gnus-registry-user-format-function-M
+ 'gnus-registry-article-marks-to-chars)
+
;; use like this:
;; (defalias 'gnus-user-format-function-M
'gnus-registry-article-marks-to-chars)
(defun gnus-registry-article-marks-to-chars (headers)
=== modified file 'lisp/gnus/gnus-sum.el'
--- a/lisp/gnus/gnus-sum.el 2011-06-10 00:10:24 +0000
+++ b/lisp/gnus/gnus-sum.el 2011-06-26 22:21:48 +0000
@@ -7298,6 +7298,7 @@
(run-hooks 'gnus-summary-prepare-exit-hook)
(when (gnus-buffer-live-p gnus-article-buffer)
(with-current-buffer gnus-article-buffer
+ (gnus-article-stop-animations)
(mm-destroy-parts gnus-article-mime-handles)
;; Set it to nil for safety reason.
(setq gnus-article-mime-handle-alist nil)
@@ -9579,6 +9580,7 @@
;; Destroy any MIME parts.
(when (gnus-buffer-live-p gnus-article-buffer)
(with-current-buffer gnus-article-buffer
+ (gnus-article-stop-animations)
(mm-destroy-parts gnus-article-mime-handles)
;; Set it to nil for safety reason.
(setq gnus-article-mime-handle-alist nil)
=== modified file 'lisp/gnus/shr.el'
--- a/lisp/gnus/shr.el 2011-05-31 22:08:51 +0000
+++ b/lisp/gnus/shr.el 2011-06-26 22:21:48 +0000
@@ -526,7 +526,9 @@
(when (and (> (current-column) 0)
(> (car (image-size image t)) 400))
(insert "\n"))
- (insert-image image (or alt "*")))
+ (insert-image image (or alt "*"))
+ (when (image-animated-p image)
+ (image-animate image nil 60)))
image)
(insert alt)))
@@ -557,10 +559,6 @@
:width window-width
:ascent 100)
image)))
- (when (and (fboundp 'create-animated-image)
- (eq (image-type data nil t) 'gif))
- (setq image (create-animated-image data 'gif t
- :ascent 100)))
image)))
;; url-cache-extract autoloads url-cache.
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Emacs-diffs] /srv/bzr/emacs/trunk r104741: Merge changes made in Gnus trunk.,
Katsumi Yamaoka <=