Mercurial > hg > xemacs-beta

comparison lisp/gnus/gnus-soup.el @ 32:e04119814345 r19-15b99

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r19-15b99
author cvs
date Mon, 13 Aug 2007 08:52:56 +0200
parents ec9a17fef872
children 131b0175ea99
comparison
equal deleted inserted replaced
31:b9328a10c56c 32:e04119814345
32 (require 'gnus-start) 32 (require 'gnus-start)
33 (require 'gnus-range) 33 (require 'gnus-range)
34 34
35 ;;; User Variables: 35 ;;; User Variables:
36 36
37 (defvar gnus-soup-directory "~/SoupBrew/" 37 (defvar gnus-soup-directory (nnheader-concat gnus-home-directory "SoupBrew/")
38 "*Directory containing an unpacked SOUP packet.") 38 "*Directory containing an unpacked SOUP packet.")
39 39
40 (defvar gnus-soup-replies-directory (concat gnus-soup-directory "SoupReplies/") 40 (defvar gnus-soup-replies-directory
41 (nnheader-concat gnus-soup-directory "SoupReplies/")
41 "*Directory where Gnus will do processing of replies.") 42 "*Directory where Gnus will do processing of replies.")
42 43
43 (defvar gnus-soup-prefix-file "gnus-prefix" 44 (defvar gnus-soup-prefix-file "gnus-prefix"
44 "*Name of the file where Gnus stores the last used prefix.") 45 "*Name of the file where Gnus stores the last used prefix.")
45 46
51 52
52 (defvar gnus-soup-unpacker "gunzip -c %s | tar xvf -" 53 (defvar gnus-soup-unpacker "gunzip -c %s | tar xvf -"
53 "*Format string command for unpacking a SOUP packet. 54 "*Format string command for unpacking a SOUP packet.
54 The SOUP packet file name will be inserted at the %s.") 55 The SOUP packet file name will be inserted at the %s.")
55 56
56 (defvar gnus-soup-packet-directory "~/" 57 (defvar gnus-soup-packet-directory gnus-home-directory
57 "*Where gnus-soup will look for REPLIES packets.") 58 "*Where gnus-soup will look for REPLIES packets.")
58 59
59 (defvar gnus-soup-packet-regexp "Soupin" 60 (defvar gnus-soup-packet-regexp "Soupin"
60 "*Regular expression matching SOUP REPLIES packets in `gnus-soup-packet-directory'.") 61 "*Regular expression matching SOUP REPLIES packets in `gnus-soup-packet-directory'.")
61 62