* Customize patch
@ 2001-07-25 19:57 Henrik Enberg
2001-07-25 21:57 ` ShengHuo ZHU
0 siblings, 1 reply; 2+ messages in thread
From: Henrik Enberg @ 2001-07-25 19:57 UTC (permalink / raw)
[-- Attachment #1: Type: text/plain, Size: 234 bytes --]
Hi,
There is a lot of variables that can't be set with custom in gnus-msg.el.
I attached a patch that fixes this below. Can someone trusted with Gnus
sources apply this?
Henrik
--
I always have fun because I'm out of my mind!!!
[-- Warning: decoded text below may be mangled, UTF-8 assumed --]
[-- Attachment #2: Customize patch for gnus-msg.el --]
[-- Type: text/x-patch, Size: 3219 bytes --]
--- lisp/gnus-msg.el.~6.41.~ Wed Jul 25 02:17:00 2001
+++ lisp/gnus-msg.el Wed Jul 25 21:48:52 2001
@@ -54,7 +54,7 @@
(const native)
(sexp :tag "Methods" ,gnus-select-method)))
-(defvar gnus-outgoing-message-group nil
+(defcustom gnus-outgoing-message-group nil
"*All outgoing messages will be put in this group.
If you want to store all your outgoing mail and articles in the group
\"nnml:archive\", you set this variable to that value. This variable
@@ -63,18 +63,25 @@
If you want to have greater control over what group to put each
message in, you can set this variable to a function that checks the
current newsgroup name and then returns a suitable group name (or list
-of names).")
+of names)."
+ :group 'gnus-message
+ :type '(choice (string :tag "Group")
+ (function)))
-(defvar gnus-mailing-list-groups nil
+(defcustom gnus-mailing-list-groups nil
"*Regexp matching groups that are really mailing lists.
This is useful when you're reading a mailing list that has been
gatewayed to a newsgroup, and you want to followup to an article in
-the group.")
+the group."
+ :group 'gnus-message
+ :type 'regexp)
+
+(defcustom gnus-add-to-list nil
+ "*If non-nil, add a `to-list' parameter automatically."
+ :group 'gnus-message
+ :type 'boolean)
-(defvar gnus-add-to-list nil
- "*If non-nil, add a `to-list' parameter automatically.")
-
-(defvar gnus-crosspost-complaint
+(defcustom gnus-crosspost-complaint
"Hi,
You posted the article below with the following Newsgroups header:
@@ -90,19 +97,44 @@
"
"Format string to be inserted when complaining about crossposts.
The first %s will be replaced by the Newsgroups header;
-the second with the current group name.")
-
-(defvar gnus-message-setup-hook nil
- "Hook run after setting up a message buffer.")
-
-(defvar gnus-bug-create-help-buffer t
- "*Should we create the *Gnus Help Bug* buffer?")
-
-(defvar gnus-posting-styles nil
- "*Alist of styles to use when posting.")
-
-(defvar gnus-inews-mark-gcc-as-read nil
- "If non-nil, automatically mark Gcc articles as read.")
+the second with the current group name."
+ :group 'gnus-message
+ :type 'string)
+
+(defcustom gnus-message-setup-hook nil
+ "Hook run after setting up a message buffer."
+ :group 'gnus-message
+ :type 'hook)
+
+(defcustom gnus-bug-create-help-buffer t
+ "*Should we create the *Gnus Help Bug* buffer?"
+ :group 'gnus-message
+ :type 'boolean)
+
+(defcustom gnus-posting-styles nil
+ "*Alist of styles to use when posting."
+ :group 'gnus-message
+ :type '(repeat (cons (choice (regexp)
+ (function)
+ (variable)
+ (sexp))
+ (repeat (list
+ (choice (const signature)
+ (const signature-file)
+ (const organization)
+ (const address)
+ (const name)
+ (const body)
+ (string :tag "Header"))
+ (choice (string)
+ (function)
+ (variable)
+ (sexp)))))))
+
+(defcustom gnus-inews-mark-gcc-as-read nil
+ "If non-nil, automatically mark Gcc articles as read."
+ :group 'gnus-message
+ :type 'boolean)
(defcustom gnus-group-posting-charset-alist
'(("^\\(no\\|fr\\)\\.[^,]*\\(,[ \t\n]*\\(no\\|fr\\)\\.[^,]*\\)*$" iso-8859-1 (iso-8859-1))
^ permalink raw reply [flat|nested] 2+ messages in thread
* Re: Customize patch
2001-07-25 19:57 Customize patch Henrik Enberg
@ 2001-07-25 21:57 ` ShengHuo ZHU
0 siblings, 0 replies; 2+ messages in thread
From: ShengHuo ZHU @ 2001-07-25 21:57 UTC (permalink / raw)
Henrik Enberg <henrik@enberg.org> writes:
> Hi,
>
> There is a lot of variables that can't be set with custom in gnus-msg.el.
> I attached a patch that fixes this below. Can someone trusted with Gnus
> sources apply this?
Installed.
ShengHuo
^ permalink raw reply [flat|nested] 2+ messages in thread
end of thread, other threads:[~2001-07-25 21:57 UTC | newest]
Thread overview: 2+ messages (download: mbox.gz / follow: Atom feed)
-- links below jump to the message on this page --
2001-07-25 19:57 Customize patch Henrik Enberg
2001-07-25 21:57 ` ShengHuo ZHU
This is a public inbox, see mirroring instructions
for how to clone and mirror all data and code used for this inbox;
as well as URLs for NNTP newsgroup(s).