projects
/
gnus
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
(mm-codepage-setup): New helper function.
[gnus]
/
lisp
/
gnus-fun.el
diff --git
a/lisp/gnus-fun.el
b/lisp/gnus-fun.el
index
1892e6a
..
6df7dfb
100644
(file)
--- a/
lisp/gnus-fun.el
+++ b/
lisp/gnus-fun.el
@@
-1,5
+1,6
@@
;;; gnus-fun.el --- various frivolous extension functions to Gnus
;;; gnus-fun.el --- various frivolous extension functions to Gnus
-;; Copyright (C) 2002, 2003 Free Software Foundation, Inc.
+
+;; Copyright (C) 2002, 2003, 2004, 2005 Free Software Foundation, Inc.
;; Author: Lars Magne Ingebrigtsen <larsi@gnus.org>
;; Keywords: news
;; Author: Lars Magne Ingebrigtsen <larsi@gnus.org>
;; Keywords: news
@@
-18,8
+19,8
@@
;; You should have received a copy of the GNU General Public License
;; along with GNU Emacs; see the file COPYING. If not, write to the
;; You should have received a copy of the GNU General Public License
;; along with GNU Emacs; see the file COPYING. If not, write to the
-;; Free Software Foundation, Inc., 5
9 Temple Place - Suite 330
,
-;; Boston, MA 0211
1-1307
, USA.
+;; Free Software Foundation, Inc., 5
1 Franklin Street, Fifth Floor
,
+;; Boston, MA 0211
0-1301
, USA.
;;; Commentary:
;;; Commentary:
@@
-34,11
+35,13
@@
(defcustom gnus-x-face-directory (expand-file-name "x-faces" gnus-directory)
"*Directory where X-Face PBM files are stored."
(defcustom gnus-x-face-directory (expand-file-name "x-faces" gnus-directory)
"*Directory where X-Face PBM files are stored."
+ :version "22.1"
:group 'gnus-fun
:type 'directory)
(defcustom gnus-convert-pbm-to-x-face-command "pbmtoxbm %s | compface"
"Command for converting a PBM to an X-Face."
:group 'gnus-fun
:type 'directory)
(defcustom gnus-convert-pbm-to-x-face-command "pbmtoxbm %s | compface"
"Command for converting a PBM to an X-Face."
+ :version "22.1"
:group 'gnus-fun
:type 'string)
:group 'gnus-fun
:type 'string)
@@
-46,13
+49,15
@@
"Command for converting an image to an X-Face.
By default it takes a GIF filename and output the X-Face header data
on stdout."
"Command for converting an image to an X-Face.
By default it takes a GIF filename and output the X-Face header data
on stdout."
+ :version "22.1"
:group 'gnus-fun
:type 'string)
(defcustom gnus-convert-image-to-face-command "djpeg %s | ppmnorm | pnmscale -width 48 -height 48 | ppmquant %d | pnmtopng"
:group 'gnus-fun
:type 'string)
(defcustom gnus-convert-image-to-face-command "djpeg %s | ppmnorm | pnmscale -width 48 -height 48 | ppmquant %d | pnmtopng"
- "Command for converting an image to a
n
Face.
+ "Command for converting an image to a Face.
By default it takes a JPEG filename and output the Face header data
on stdout."
By default it takes a JPEG filename and output the Face header data
on stdout."
+ :version "22.1"
:group 'gnus-fun
:type 'string)
:group 'gnus-fun
:type 'string)
@@
-129,7
+134,7
@@
Output to the current buffer, replace text, and don't mingle error."
;;;###autoload
(defun gnus-face-from-file (file)
;;;###autoload
(defun gnus-face-from-file (file)
- "Return a
n
Face header based on an image file."
+ "Return a Face header based on an image file."
(interactive "fImage file name (by default JPEG): ")
(when (file-exists-p file)
(let ((done nil)
(interactive "fImage file name (by default JPEG): ")
(when (file-exists-p file)
(let ((done nil)
@@
-275,4
+280,5
@@
colors of the displayed X-Faces."
(provide 'gnus-fun)
(provide 'gnus-fun)
+;;; arch-tag: 9d000a69-15cc-4491-9dc0-4627484f50c1
;;; gnus-fun.el ends here
;;; gnus-fun.el ends here