Skip to content
GitLab
Projects
Groups
Snippets
Help
Loading...
Help
What's new
10
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Open sidebar
emacs
emacs
Commits
4b36c6d4
Commit
4b36c6d4
authored
Oct 01, 2010
by
Katsumi Yamaoka
Browse files
Options
Browse Files
Download
Email Patches
Plain Diff
gravatar.el (gravatar-create-image): New function.
parent
1ef075bb
Changes
2
Hide whitespace changes
Inline
Side-by-side
Showing
2 changed files
with
18 additions
and
2 deletions
+18
-2
lisp/gnus/ChangeLog
lisp/gnus/ChangeLog
+7
-0
lisp/gnus/gravatar.el
lisp/gnus/gravatar.el
+11
-2
No files found.
lisp/gnus/ChangeLog
View file @
4b36c6d4
2010-10-01 Katsumi Yamaoka <yamaoka@jpl.org>
* gravatar.el: Don't load image.el that XEmacs doesn't provide.
(gravatar-create-image): New function that's an alias to
gnus-xmas-create-image, gnus-create-image, or create-image.
(gravatar-data->image): Use it.
2010-09-30 Teodor Zlatanov <tzz@lifelogs.com>
* gnus-registry.el (gnus-registry-install-nnregistry): New function to
...
...
lisp/gnus/gravatar.el
View file @
4b36c6d4
...
...
@@ -24,7 +24,6 @@
;;; Code:
(
require
'image
)
(
require
'url
)
(
require
'url-cache
)
...
...
@@ -84,12 +83,22 @@
(
when
(
search-forward
"\n\n"
nil
t
)
(
buffer-substring
(
point
)
(
point-max
)))))
(
eval-and-compile
(
cond
((
featurep
'xemacs
)
(
require
'gnus-xmas
)
(
defalias
'gravatar-create-image
'gnus-xmas-create-image
))
((
featurep
'gnus-ems
)
(
defalias
'gravatar-create-image
'gnus-create-image
))
(
t
(
require
'image
)
(
defalias
'gravatar-create-image
'create-image
))))
(
defun
gravatar-data->image
()
"Get data of current buffer and return an image.
If no image available, return 'error."
(
let
((
data
(
gravatar-get-data
)))
(
if
data
(
create-image
data
nil
t
)
(
gravatar-
create-image
data
nil
t
)
'error
)))
;;;###autoload
...
...
Write
Preview
Markdown
is supported
0%
Try again
or
attach a new file
.
Attach a file
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment