Mercurial > emacs
changeset 75103:9a023b421e07
(gnus-soup): New custom group. Make user variables customizable.
| author | Reiner Steib <Reiner.Steib@gmx.de> |
|---|---|
| date | Fri, 05 Jan 2007 11:47:28 +0000 |
| parents | ff5c8a12bdd1 |
| children | a79fa605c989 |
| files | lisp/gnus/ChangeLog lisp/gnus/gnus-soup.el |
| diffstat | 2 files changed, 42 insertions(+), 17 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/gnus/ChangeLog Fri Jan 05 08:30:33 2007 +0000 +++ b/lisp/gnus/ChangeLog Fri Jan 05 11:47:28 2007 +0000 @@ -1,3 +1,8 @@ +2007-01-05 Reiner Steib <Reiner.Steib@gmx.de> + + * gnus-soup.el (gnus-soup): New custom group. Make user variables + customizable. + 2006-12-30 Andreas Seltenreich <uwi7@rz.uni-karlsruhe.de> * gnus-sum.el (gnus-summary-insert-dormant-articles): Fix typo in
--- a/lisp/gnus/gnus-soup.el Fri Jan 05 08:30:33 2007 +0000 +++ b/lisp/gnus/gnus-soup.el Fri Jan 05 11:47:28 2007 +0000 @@ -36,36 +36,56 @@ (require 'gnus-start) (require 'gnus-range) +(defgroup gnus-soup nil + "SOUP packet writing support for Gnus." + :group 'gnus) + ;;; User Variables: -(defvar gnus-soup-directory (nnheader-concat gnus-home-directory "SoupBrew/") - "*Directory containing an unpacked SOUP packet.") +(defcustom gnus-soup-directory (nnheader-concat gnus-home-directory "SoupBrew/") + "Directory containing an unpacked SOUP packet." + :version "22.1" ;; Gnus 5.10.9 + :type 'directory) -(defvar gnus-soup-replies-directory +(defcustom gnus-soup-replies-directory (nnheader-concat gnus-soup-directory "SoupReplies/") - "*Directory where Gnus will do processing of replies.") + "Directory where Gnus will do processing of replies." + :version "22.1" ;; Gnus 5.10.9 + :type 'directory) -(defvar gnus-soup-prefix-file "gnus-prefix" - "*Name of the file where Gnus stores the last used prefix.") +(defcustom gnus-soup-prefix-file "gnus-prefix" + "Name of the file where Gnus stores the last used prefix." + :version "22.1" ;; Gnus 5.10.9 + :type 'file) -(defvar gnus-soup-packer "tar cf - %s | gzip > $HOME/Soupout%d.tgz" +(defcustom gnus-soup-packer "tar cf - %s | gzip > $HOME/Soupout%d.tgz" "Format string command for packing a SOUP packet. The SOUP files will be inserted where the %s is in the string. This string MUST contain both %s and %d. The file number will be -inserted where %d appears.") +inserted where %d appears." + :version "22.1" ;; Gnus 5.10.9 + :type 'string) -(defvar gnus-soup-unpacker "gunzip -c %s | tar xvf -" - "*Format string command for unpacking a SOUP packet. -The SOUP packet file name will be inserted at the %s.") +(defcustom gnus-soup-unpacker "gunzip -c %s | tar xvf -" + "Format string command for unpacking a SOUP packet. +The SOUP packet file name will be inserted at the %s." + :version "22.1" ;; Gnus 5.10.9 + :type 'string) -(defvar gnus-soup-packet-directory gnus-home-directory - "*Where gnus-soup will look for REPLIES packets.") +(defcustom gnus-soup-packet-directory gnus-home-directory + "Where gnus-soup will look for REPLIES packets." + :version "22.1" ;; Gnus 5.10.9 + :type 'directory) -(defvar gnus-soup-packet-regexp "Soupin" - "*Regular expression matching SOUP REPLIES packets in `gnus-soup-packet-directory'.") +(defcustom gnus-soup-packet-regexp "Soupin" + "Regular expression matching SOUP REPLIES packets in `gnus-soup-packet-directory'." + :version "22.1" ;; Gnus 5.10.9 + :type 'regexp) -(defvar gnus-soup-ignored-headers "^Xref:" - "*Regexp to match headers to be removed when brewing SOUP packets.") +(defcustom gnus-soup-ignored-headers "^Xref:" + "Regexp to match headers to be removed when brewing SOUP packets." + :version "22.1" ;; Gnus 5.10.9 + :type 'regexp) ;;; Internal Variables: