Merge remote-tracking branch 'origin/no-gnus'
authorLars Ingebrigtsen <larsi@gnus.org>
Wed, 8 Feb 2012 00:09:38 +0000 (01:09 +0100)
committerLars Ingebrigtsen <larsi@gnus.org>
Wed, 8 Feb 2012 00:09:38 +0000 (01:09 +0100)
1  2 
lisp/ChangeLog
lisp/shr.el

diff --cc lisp/ChangeLog
@@@ -1,27 -1,9 +1,33 @@@
 +2012-02-07  Lars Ingebrigtsen  <larsi@gnus.org>
 +
 +      * gnus-compat.el: Make `help-function-arglist' be compatible on Emacs
 +      23.1.
 +
 +2012-02-07  Katsumi Yamaoka  <yamaoka@jpl.org>
 +
 +      * gnus-sum.el (gnus-summary-show-thread): Revert last two changes.
 +
 +2012-02-07  Lars Ingebrigtsen  <larsi@gnus.org>
 +
 +      * message.el (smtpmail-smtp-user): Silence compiler warning.
 +
 +2012-02-06  Lars Ingebrigtsen  <larsi@gnus.org>
 +
 +      * message.el (message-multi-smtp-send-mail): Also allow specifying the
 +      SMTP user name.
 +
 +2012-02-06  Katsumi Yamaoka  <yamaoka@jpl.org>
 +
 +      * gnus-sum.el (gnus-summary-show-thread):
 +      next-single-char-property-change may return nil in XEmacs.
 +      (gnus-summary-article-map): Fix typo.
 +
+ 2012-02-08  Lars Ingebrigtsen  <larsi@gnus.org>
+       * shr.el: Inhibit getting and sending cookies when fetching pictures.
+       * gnus-html.el (gnus-html-schedule-image-fetching): Ditto.
  2012-02-07  Lars Ingebrigtsen  <larsi@gnus.org>
  
        * shr.el (shr-remove-trailing-whitespace): Don't strip whitespace from
diff --cc lisp/shr.el
@@@ -232,42 -232,8 +233,42 @@@ the URL of the image to the kill buffe
        (message "Inserting %s..." url)
        (url-retrieve url 'shr-image-fetched
                    (list (current-buffer) (1- (point)) (point-marker))
-                   t))))
+                   t t))))
  
 +(defun shr-zoom-image ()
 +  "Toggle the image size.
 +The size will be rotated between the default size, the original
 +size, and full-buffer size."
 +  (interactive)
 +  (let ((url (get-text-property (point) 'image-url))
 +      (size (get-text-property (point) 'image-size))
 +      (buffer-read-only nil))
 +    (if (not url)
 +      (message "No image under point")
 +      ;; Delete the old picture.
 +      (while (get-text-property (point) 'image-url)
 +      (forward-char -1))
 +      (forward-char 1)
 +      (let ((start (point)))
 +      (while (get-text-property (point) 'image-url)
 +        (forward-char 1))
 +      (forward-char -1)
 +      (put-text-property start (point) 'display nil)
 +      (when (> (- (point) start) 2)
 +        (delete-region start (1- (point)))))
 +      (message "Inserting %s..." url)
 +      (url-retrieve url 'shr-image-fetched
 +                  (list (current-buffer) (1- (point)) (point-marker)
 +                        (list (cons 'size
 +                                    (cond ((or (eq size 'default)
 +                                               (null size))
 +                                           'original)
 +                                          ((eq size 'original)
 +                                           'full)
 +                                          ((eq size 'full)
 +                                           'default)))))
 +                  t))))
 +
  ;;; Utility functions.
  
  (defun shr-transform-dom (dom)