From xemacs-m  Tue Apr  8 08:01:22 1997
Received: from jagor.srce.hr (hniksic@jagor.srce.hr [161.53.2.130])
	by xemacs.org (8.8.5/8.8.5) with ESMTP id IAA28360
	for <xemacs-beta@xemacs.org>; Tue, 8 Apr 1997 08:01:20 -0500 (CDT)
Received: (from hniksic@localhost)
          by jagor.srce.hr (8.8.5/8.8.4)
	  id PAA07514; Tue, 8 Apr 1997 15:01:16 +0200 (MET DST)
Sender: hniksic@public.srce.hr
To: XEmacs Developers <xemacs-beta@xemacs.org>
Subject: mail-abbrevs.el
X-URL: ftp://gnjilux.cc.fer.hr/pub/unix/util/wget/
X-Attribution: Hrv
X-Face: &}4JQk=L;e.~x+|eo]#DGk@x3~ed!.~lZ}YQcYb7f[WL9L'Z*+OyA\nA
        EL1M(".[qvI#a2E6WYI5>>e7'@_)3Ol9p|Nn2wNa/;~06jL*B%tTcn/X
        vhAu7qeES0\|MF%$;sI#yn1+y"
From: Hrvoje Niksic <hniksic@srce.hr>
Date: 08 Apr 1997 15:01:15 +0200
Message-ID: <kighghhhdno.fsf@jagor.srce.hr>
Lines: 63

...is you-know-what.  More ###autoloads there.

--- mail-abbrevs.el.orig	Tue Apr  8 14:55:24 1997
+++ mail-abbrevs.el	Tue Apr  8 14:59:15 1997
@@ -143,9 +143,16 @@
 
 (require 'sendmail)
 
+(defgroup mail-abbrevs nil
+  "Mail abbreviation (addressbook)"
+  :group 'mail)
+
 ;;;###autoload
-(defvar mail-abbrev-mailrc-file nil
-  "Name of file with mail aliases.   If nil, ~/.mailrc is used.")
+(defcustom mail-abbrev-mailrc-file nil
+  "Name of file with mail aliases.   If nil, ~/.mailrc is used."
+  :type '(choice (const :tag "Default" nil)
+		 file)
+  :group 'mail-abbrevs)
 
 (defmacro mail-abbrev-mailrc-file ()
   '(or mail-abbrev-mailrc-file
@@ -242,10 +249,12 @@
       (set-buffer obuf)))
     (message "Parsing %s... done" file))
 
-(defvar mail-alias-separator-string ", "
+(defcustom mail-alias-separator-string ", "
   "*A string inserted between addresses in multi-address mail aliases.
 This has to contain a comma, so \", \" is a reasonable value.  You might 
-also want something like \",\\n    \" to get each address on its own line.")
+also want something like \",\\n    \" to get each address on its own line."
+  :type 'string
+  :group 'mail-abbrevs)
 
 ;; define-mail-alias sets this flag, which causes mail-resolve-all-aliases
 ;; to be called before expanding abbrevs if it's necessary.
@@ -376,14 +385,16 @@
 
 ;;; Syntax tables and abbrev-expansion
 
-(defvar mail-abbrev-mode-regexp
+(defcustom mail-abbrev-mode-regexp
   "^\\(Resent-\\)?\\(To\\|From\\|CC\\|BCC\\|Reply-to\\):"
   "*Regexp to select mail-headers in which mail aliases should be expanded.
 This string it will be handed to `looking-at' with the point at the beginning
 of the current line; if it matches, abbrev mode will be turned on, otherwise
 it will be turned off.  (You don't need to worry about continuation lines.)
 This should be set to match those mail fields in which you want abbreviations
-turned on.")
+turned on."
+  :type 'regexp
+  :group 'mail-abbrevs)
 
 (defvar mail-mode-syntax-table (copy-syntax-table text-mode-syntax-table)
   "The syntax table which is used in send-mail mode message bodies.")


-- 
Hrvoje Niksic <hniksic@srce.hr> | Student at FER Zagreb, Croatia
--------------------------------+--------------------------------
Good pings come in small packets.

