;;; gnus-gravatar.el --- Gnus Gravatar support
-;; Copyright (C) 2010-2011 Free Software Foundation, Inc.
+;; Copyright (C) 2010-2014 Free Software Foundation, Inc.
;; Author: Julien Danjou <julien@danjou.info>
;; Keywords: news
(defcustom gnus-gravatar-size nil
"How big should gravatars be displayed.
If nil, default to `gravatar-size'."
- :type 'integer
+ :type '(choice (const nil) integer)
:version "24.1"
:group 'gnus-gravatar)
(defcustom gnus-gravatar-properties '(:ascent center :relief 1)
"List of image properties applied to Gravatar images."
- :type 'list
+ :type 'sexp
:version "24.1"
:group 'gnus-gravatar)
"Insert GRAVATAR for ADDRESS in HEADER in current article buffer.
Set image category to CATEGORY."
(unless (eq gravatar 'error)
- (with-current-buffer gnus-article-buffer
+ (gnus-with-article-buffer
(let ((mark (point-marker))
- (inhibit-read-only t)
(inhibit-point-motion-hooks t)
(case-fold-search t))
(save-restriction