X-Git-Url: http://git.chise.org/gitweb/?a=blobdiff_plain;ds=sidebyside;f=lisp%2Fpaths.el;h=d83d54c620ebad176a0795667c4e026cce2aeb7d;hb=414b512c0774e67ba8e160b605447d862d3be166;hp=094087b1836555521e53cfbd8192ae91cded646d;hpb=28a3fa29bc0bd9a124b6e3379e82d62e815c22a2;p=chise%2Fxemacs-chise.git.1

diff --git a/lisp/paths.el b/lisp/paths.el
index 094087b..d83d54c 100644
--- a/lisp/paths.el
+++ b/lisp/paths.el
@@ -85,29 +85,15 @@
 ;Go to a local news spool if its value is nil, in which case `gnus-nntp-server'
 ;should be set to `(system-name)'.")
 
-(defvar gnus-local-domain nil
-  "*Your domain name without a host name: for example, \"ai.mit.edu\".
-The DOMAINNAME environment variable is used instead if defined.
-If the function `system-name' returns a fully qualified domain name,
-there is no need to set this variable.")
-
-(defvar gnus-local-organization nil
-  "*The name of your organization, as a string.
-The `ORGANIZATION' environment variable is used instead if defined.")
-
 (defvar mh-progs nil
   "Directory containing MH commands.")
 
 (defvar mh-lib nil
   "Directory of MH library.")
 
-(defvar rmail-file-name (purecopy "~/RMAIL")
+(defvar rmail-file-name "~/RMAIL"
   "Name of user's primary mail file.")
 
-(defvar gnus-startup-file (purecopy "~/.newsrc")
-  "The file listing groups to which user is subscribed.
-Will use `gnus-startup-file'-SERVER instead if exists.")
-
 (defconst rmail-spool-directory nil
   "Name of directory used by system mailer for delivering new mail.
 Its name should end with a slash.")
@@ -118,7 +104,7 @@ Its name should end with a slash.")
 (defconst remote-shell-program nil
   "Program used to execute shell commands on a remote machine.")
 
-(defconst term-file-prefix (purecopy "term/")
+(defconst term-file-prefix "term/"
   "If non-nil, Emacs startup does (load (concat term-file-prefix (getenv \"TERM\")))
 You may set this variable to nil in your `.emacs' file if you do not wish
 the terminal-initialization file to be loaded.")
@@ -126,7 +112,7 @@ the terminal-initialization file to be loaded.")
 (defconst manual-program nil
   "Program to run to print man pages.")
 
-(defconst abbrev-file-name (purecopy "~/.abbrev_defs")
+(defconst abbrev-file-name "~/.abbrev_defs"
   "*Default name of file to read abbrevs from.")
 
 (defconst directory-abbrev-alist nil)