Mercurial > hg > xemacs-beta

comparison lisp/gnus/gnus-soup.el @ 110:fe104dbd9147 r20-1b7

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-1b7
author cvs
date Mon, 13 Aug 2007 09:19:45 +0200
parents 360340f9fd5f
children 15872534500d
comparison
equal deleted inserted replaced
109:e183fc049578 110:fe104dbd9147
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