* gnus-fun.el: New file.

* gnus-art.el (gnus-body-boundary-delimiter): Changed default to
"_".
(gnus-body-boundary-delimiter): Typo fix.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 0514da6..7e506d0 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,11 @@
+2002-01-02  Lars Magne Ingebrigtsen  <larsi@gnus.org>
+
+       * gnus-fun.el: New file.
+
+       * gnus-art.el (gnus-body-boundary-delimiter): Changed default to
+       "_". 
+       (gnus-body-boundary-delimiter): Typo fix.
+
 2002-01-02  Simon Josefsson  <jas@extundo.com>
 
        * gnus-art.el (gnus-article-treat-body-boundary): Handle nil.

diff --git a/lisp/gnus-art.el b/lisp/gnus-art.el
index 749b123..07bb050 100644 (file)
--- a/lisp/gnus-art.el
+++ b/lisp/gnus-art.el
@@ -701,10 +701,10 @@ To see e.g. security buttons you could set this to
   :group 'gnus-article-mime
   :type '(repeat regexp))
 
-(defcustom gnus-body-boundary-delimiter "-"
+(defcustom gnus-body-boundary-delimiter "_"
   "String used to delimit header and body.
 This variable is used by `gnus-article-treat-body-boundary' which can
-be controled by `gnus-treat-body-boundary'."
+be controlled by `gnus-treat-body-boundary'."
   :group 'gnus-article-various
   :type '(choice (item :tag "None" :value nil)
                 string))

diff --git a/lisp/gnus-fun.el b/lisp/gnus-fun.el
new file mode 100644 (file)
index 0000000..c74904b
--- /dev/null
+++ b/lisp/gnus-fun.el
@@ -0,0 +1,52 @@
+;;; gnus-fun.el --- various frivoluos extension functions to Gnus
+;; Copyright (C) 2002 Free Software Foundation, Inc.
+
+;; Author: Lars Magne Ingebrigtsen <larsi@gnus.org>
+;; Keywords: news
+
+;; This file is part of GNU Emacs.
+
+;; GNU Emacs is free software; you can redistribute it and/or modify
+;; it under the terms of the GNU General Public License as published by
+;; the Free Software Foundation; either version 2, or (at your option)
+;; any later version.
+
+;; GNU Emacs is distributed in the hope that it will be useful,
+;; but WITHOUT ANY WARRANTY; without even the implied warranty of
+;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.         See the
+;; GNU General Public License for more details.
+
+;; 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., 59 Temple Place - Suite 330,
+;; Boston, MA 02111-1307, USA.
+
+;;; Commentary:
+
+;;; Code:
+
+(defcustom gnus-x-face-directory (expand-file-name "x-faces" gnus-directory)
+  "*Directory where X-Face PBM files are stored."
+  :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 'string)
+
+;;;###autoload
+(defun gnus-insert-random-x-face ()
+  "Insert a random X-Face header from `gnus-x-face-directory'."
+  (interactive)
+  (when (file-exists-p gnus-x-face-directory)
+    (let* ((files (directory-files gnus-x-face-directory t "\\.pbm$"))
+          (file (nth (random (length files)) files)))
+      (when file
+       (insert "X-Face:"
+               (shell-command-to-string
+                (format gnus-convert-pbm-to-x-face-command file)))))))
+
+(provide 'gnus-fun)
+
+;;; gnus-fun.el ends here

diff --git a/lisp/gnus.el b/lisp/gnus.el
index 0afb315..9104d8d 100644 (file)
--- a/lisp/gnus.el
+++ b/lisp/gnus.el
@@ -267,6 +267,11 @@ is restarted, and sometimes reloaded."
   :link '(custom-manual "(gnus)Exiting Gnus")
   :group 'gnus)
 
+(defgroup gnus-fun nil
+  "Frivolous Gnus extensions."
+  :link '(custom-manual "(gnus)Exiting Gnus")
+  :group 'gnus)
+
 (defconst gnus-version-number "0.05"
   "Version number for this version of Gnus.")