[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] Changes to emacs/lisp/gnus/gnus-soup.el,v
From: |
Reiner Steib |
Subject: |
[Emacs-diffs] Changes to emacs/lisp/gnus/gnus-soup.el,v |
Date: |
Fri, 05 Jan 2007 11:47:28 +0000 |
CVSROOT: /cvsroot/emacs
Module name: emacs
Changes by: Reiner Steib <rsteib> 07/01/05 11:47:28
Index: gnus-soup.el
===================================================================
RCS file: /cvsroot/emacs/emacs/lisp/gnus/gnus-soup.el,v
retrieving revision 1.12
retrieving revision 1.13
diff -u -b -r1.12 -r1.13
--- gnus-soup.el 10 Dec 2006 01:42:56 -0000 1.12
+++ gnus-soup.el 5 Jan 2007 11:47:28 -0000 1.13
@@ -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.")
-
-(defvar gnus-soup-prefix-file "gnus-prefix"
- "*Name of the file where Gnus stores the last used prefix.")
+ "Directory where Gnus will do processing of replies."
+ :version "22.1" ;; Gnus 5.10.9
+ :type 'directory)
+
+(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.")
-
-(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.")
-
-(defvar gnus-soup-packet-directory gnus-home-directory
- "*Where gnus-soup will look for REPLIES packets.")
-
-(defvar gnus-soup-packet-regexp "Soupin"
- "*Regular expression matching SOUP REPLIES packets in
`gnus-soup-packet-directory'.")
-
-(defvar gnus-soup-ignored-headers "^Xref:"
- "*Regexp to match headers to be removed when brewing SOUP packets.")
+inserted where %d appears."
+ :version "22.1" ;; Gnus 5.10.9
+ :type 'string)
+
+(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)
+
+(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)
+
+(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)
+
+(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:
- [Emacs-diffs] Changes to emacs/lisp/gnus/gnus-soup.el,v,
Reiner Steib <=