Changing message-directory

[Martin Thornquist <martint@ifi.uio.no>]

[-- Attachment #1: Type: text/plain, Size: 2427 bytes --]

I want to keep my mail in a remote (home) directory which I
Samba-mount, but don't want as local home directory (partly because
Samba doesn't do file permissions). So I need to use something other
than ~/Mail and ~/News for message-directory and gnus-directory (or
maybe set gnus-home-directory). I haven't decided yet if I want to
keep .gnus etc. on the local or remote home directory, and hence if I
can set gnus-home-directory or not. To do some preemptive breakage
handling I did a couple of greps in the sources:


Grep for '~/Mail/' in CVS sources:

message.el:113:(defcustom message-directory "~/Mail/"
smime.el:157:(defcustom smime-certificate-directory "~/Mail/certs/"
spam-stat.el:79:;; Learn spam: (spam-stat-process-spam-directory "~/Mail/mail/spam")
spam-stat.el:80:;; Learn non-spam: (spam-stat-process-non-spam-directory "~/Mail/mail/misc")
spam-stat.el:84:;; Test spam: (spam-stat-test-directory "~/Mail/mail/spam")
spam-stat.el:85:;; Test non-spam: (spam-stat-test-directory "~/Mail/mail/misc")
spam-stat.el:90:;; Test spam: (spam-stat-test-directory "~/Mail/mail/spam")
spam-stat.el:91:;; Test non-spam: (spam-stat-test-directory "~/Mail/mail/misc")
spam-stat.el:100:;; Learn spam: (spam-stat-process-spam-directory "~/Mail/mail/spam")
spam-stat.el:101:;; Learn non-spam: (spam-stat-process-non-spam-directory "~/Mail/mail/misc")

Grep for '~/News/':

gnus-art.el:3313:If variable `gnus-use-long-file-name' is non-nil, it is ~/News/News.group/num.
gnus-art.el:3314:Otherwise, it is like ~/News/news/group/num."
gnus-art.el:3332:~/News/news.group/num.	Otherwise, it is like ~/News/news/group/num."
gnus-art.el:3350:~/News/news.group.  Otherwise, it is like ~/News/news/group/news."
gnus-score.el:2576:The score files are those files in the ~/News/ directory which matches
nnimap.el:299:~/News/overview/nnimap.pdc.INBOX.ding.nov, or
nnimap.el:300:~/News/overview/nnimap/pdc/INBOX/ding/nov if
spam.el:78:(defcustom spam-directory "~/News/spam/"


So it seems smime.el and spam.el are prone candidates for breakage,
while the rest just have more or less broken comments. In message.el,
message-directory should probably be set relative to
gnus-home-directory like gnus-directory is in gnus.el. Patches for
message.el and spam.el attached.

I don't know how to patch smime.el. It seems to be a standalone
package (I don't (think I) use it), so it cannot use message-directory
or anything else from Gnus, I guess.


[-- Warning: decoded text below may be mangled, UTF-8 assumed --]
[-- Attachment #2: message.el-diff --]
[-- Type: text/x-patch, Size: 599 bytes --]

*** message.el.~6.386.~	Thu Dec 11 05:30:04 2003
--- message.el	Thu Dec 11 14:10:51 2003
***************
*** 110,116 ****
    :group 'message
    :group 'faces)
  
! (defcustom message-directory "~/Mail/"
    "*Directory from which all other mail file variables are derived."
    :group 'message-various
    :type 'directory)
--- 110,117 ----
    :group 'message
    :group 'faces)
  
! (defcustom message-directory (nnheader-concat gnus-home-directory "Mail/")
! ;;  "~/Mail/"
    "*Directory from which all other mail file variables are derived."
    :group 'message-various
    :type 'directory)

[-- Warning: decoded text below may be mangled, UTF-8 assumed --]
[-- Attachment #3: spam.el-diff --]
[-- Type: text/x-patch, Size: 525 bytes --]

*** spam.el.~6.141.~	Thu Dec 11 05:30:05 2003
--- spam.el	Thu Dec 11 14:18:31 2003
***************
*** 75,81 ****
  (defgroup spam nil
    "Spam configuration.")
  
! (defcustom spam-directory "~/News/spam/"
    "Directory for spam whitelists and blacklists."
    :type 'directory
    :group 'spam)
--- 75,81 ----
  (defgroup spam nil
    "Spam configuration.")
  
! (defcustom spam-directory (nnheader-concat gnus-directory "spam/")
    "Directory for spam whitelists and blacklists."
    :type 'directory
    :group 'spam)

[-- Attachment #4: Type: text/plain, Size: 237 bytes --]


If there's any other gotchas in using ~/foo/Mail/ etc. I'd be grateful
to have them pointed out.


Martin
-- 
"An ideal world is left as an exercise to the reader."
                                                 -Paul Graham, On Lisp