Re: message-subject-re

[Per Abrahamsen <abraham@dina.kvl.dk>]

Simon Josefsson <jas@extundo.com> writes:

> Simon Josefsson <jas@extundo.com> writes:
> 
>> +  :type '(radio (function-item message-strip-subject-re)
>> +		(function-item message-strip-list-identifiers)
>> +		(repeat :tag "List of functions" function)))
> 
> This :type isn't perfect, replacing `radio' with `checklist' would be
> better (if `checklist' existed..), but the following seem to be as
> close as you can get:
> 
>  :type '(repeat :tag "List of functions" function))

What do you mean "if `checklist' existed.."?

There exists a widget named 'checklist', although 'set' would be more
appropriate for a top level customize type.  However, a checklist
isn't expandable.

It would be tempting to give the option the 'hook' type, which would
work perfectly... except that it would be a lie, hook functions
doesn't take arguments.

The correct solution would probably be to create an 'expandable-list'
widget, which mimics the 'alist' and 'plist' widgets, and derive
'function-list' and 'hook' from that.  Someone remind me of that when
Emacs 21 is released.

For now, do it by hand.  Here is an example.

(defcustom message-make-re-subject-functions
  '(message-strip-list-identifiers
    message-strip-subject-re message-add-subject-re)
  "List of functions called to massage subject lines when replying.
The subject generated by the previous function is passed into each
successive function.

The provided functions (which both are used by default) are:

* `message-strip-list-identifiers' (Removes `gnus-list-identifiers'.)
* `message-strip-subject-re' (Removes `message-subject-re-regexp'.)
* `message-add-subject-re' (Prepends \"Re: \".)
"
  :group 'message-various
  :type '(list (checklist :inline t
			  :greedy t
			  (function-item message-strip-subject-re)
			  (function-item message-strip-list-identifiers))
	       (editable-list :inline t
			      :tag "List of functions" function)))

Some style notes: I believe '-functions' (not '-function') is the
conventional suffix for a list functions.  Also, the user is unlikely
to set this variable during a normal Emacs session, so there should
not be any '*' at the start of the documentation string.  The '*' does
not mean "user option".  'defcustom' means "user option".  The '*'
means it make sense to change interactively during normal use.  A good
example is 'case-fold-search'.

> Wouldn't it be nice if the `function' behaved like `function-item' and
> displayed the documentation for the function currently entered?

I think it could be confusing during editing.

> (Maybe there is a Custom list for this..)

<URL: mailto:emacs-custom@sunsite.dk >