CVS update by didierv packages/xemacs-packages/vm ...
xemacs-cvs at xemacs.org
xemacs-cvs at xemacs.org
Tue Sep 4 05:13:00 EDT 2007
User: didierv
Date: 07/09/04 11:13:00
Modified: packages/xemacs-packages/vm ChangeLog vm-vars.el
Log:
Misuse of the list widget type
Revision Changes Path
1.63 +22 -16 XEmacs/packages/xemacs-packages/vm/ChangeLog
Index: ChangeLog
===================================================================
RCS file: /pack/xemacscvs/XEmacs/packages/xemacs-packages/vm/ChangeLog,v
retrieving revision 1.62
retrieving revision 1.63
diff -u -p -r1.62 -r1.63
--- ChangeLog 2005/06/06 08:04:44 1.62
+++ ChangeLog 2007/09/04 09:12:59 1.63
@@ -1,3 +1,9 @@
+2007-09-04 Didier Verna <didier at xemacs.org>
+
+ * vm-vars.el (vm-visible-headers): Fix misuse of the list widget
+ type.
+ * vm-vars.el (vm-stunnel-program-switches): Ditto.
+
2005-06-06 Norbert Koch <viteno at xemacs.org>
* Makefile (VERSION): XEmacs package 7.22 released.
@@ -15,7 +21,7 @@
* vm-mime.el (vm-xemacs-mule-p): One more issue with my patch of
the fourth; the map from XEmacs coding systems to MIME character
- sets wasn't getting initialised properly.
+ sets wasn't getting initialised properly.
2005-05-10 Norbert Koch <viteno at xemacs.org>
@@ -26,7 +32,7 @@
* vm-mime.el (vm-mime-tty-can-display-mime-charset):
My last change to VM was insufficiently tested--this should have
called vm-get-mime-ucs-list instead of referencing
- vm-mime-ucs-list. Oops.
+ vm-mime-ucs-list. Oops.
2005-04-04 Norbert Koch <viteno at xemacs.org>
@@ -45,22 +51,22 @@
* vm-mime.el (vm-get-mime-ucs-list): New.
Add a list of Mule coding systems that can encode every character;
use a function to access them, so we can check for utf-8 being
- available on lookup.
+ available on lookup.
* vm-mime.el (vm-update-mime-charset-maps): New.
Function to update the mule coding system -> Mime character set
- maps, called after load for un-define and latin-unity.
+ maps, called after load for un-define and latin-unity.
- * vm-mime.el (vm-mime-charset-decode-region): If the TTY coding
- system we're using can display a MIME charset, go ahead and decode
- the message.
- * vm-mime.el (vm-determine-proper-charset): Use latin-unity if
- available, and other logic if not, to work out the appropriate
- MIME character set to use for a region.
- * vm-mime.el (vm-mime-tty-can-display-mime-charset): New.
- * vm-mime.el (vm-mime-charset-internally-displayable-p): Add a
- docstring, use vm-mime-tty-can-display-mime-charset now it's
- available.
+ * vm-mime.el (vm-mime-charset-decode-region): If the TTY coding
+ system we're using can display a MIME charset, go ahead and decode
+ the message.
+ * vm-mime.el (vm-determine-proper-charset): Use latin-unity if
+ available, and other logic if not, to work out the appropriate
+ MIME character set to use for a region.
+ * vm-mime.el (vm-mime-tty-can-display-mime-charset): New.
+ * vm-mime.el (vm-mime-charset-internally-displayable-p): Add a
+ docstring, use vm-mime-tty-can-display-mime-charset now it's
+ available.
2004-12-07 Ben Wing <ben at xemacs.org>
@@ -113,7 +119,7 @@
* Makefile (autoloads): Accidently wiped this out with the sync.
It's back now, so 'make autoloads' will also build
- vm-autoload.el.
+ vm-autoload.el.
2003-03-26 Steve Youngs <youngs at xemacs.org>
@@ -125,7 +131,7 @@
* .cvsignore:
Remove package-info, pdepends.mk.
-
+
* Makefile (vm-autoload.el):
* Makefile (autoloads):
Delete explicit compile:: and binkit: rules.
1.29 +68 -68 XEmacs/packages/xemacs-packages/vm/vm-vars.el
Index: vm-vars.el
===================================================================
RCS file: /pack/xemacscvs/XEmacs/packages/xemacs-packages/vm/vm-vars.el,v
retrieving revision 1.28
retrieving revision 1.29
diff -u -p -r1.28 -r1.29
--- vm-vars.el 2003/09/03 00:43:45 1.28
+++ vm-vars.el 2007/09/04 09:12:59 1.29
@@ -33,7 +33,7 @@
;; hack around it!
(setq vm-faked-defcustom t)
(defmacro defgroup (&rest args) nil)
- (defmacro defcustom (var value doc &rest args)
+ (defmacro defcustom (var value doc &rest args)
(` (defvar (, var) (, value) (, doc))))))
(defgroup vm nil
@@ -116,7 +116,7 @@ A nil value means VM should not read or
(list vm-spool-files))))))
(defcustom vm-spool-files nil
- "*If non-nil this variable's value should be a list of strings
+ "*If non-nil this variable's value should be a list of strings
or a list of lists.
If the value is a list of strings, the strings should name files
@@ -499,8 +499,8 @@ be asterisk or some other placeholder.
Example:
(setq vm-imap-server-list
'(
- \"imap-ssl:mail.foocorp.com:993:inbox:login:becky:*\"
- \"imap:crickle.lex.ky.us:143:inbox:login:becky:*\"
+ \"imap-ssl:mail.foocorp.com:993:inbox:login:becky:*\"
+ \"imap:crickle.lex.ky.us:143:inbox:login:becky:*\"
)
)"
:type '(repeat string))
@@ -660,7 +660,7 @@ Otherwise all headers are displayed exce
`vm-invisible-header-regexp'. In this case `vm-visible-headers'
specifies the order in which headers are displayed. Headers not
matching `vm-visible-headers' are displayed last."
-:type '(list regexp))
+:type '(repeat regexp))
(defcustom vm-invisible-header-regexp nil
"*Non-nil value should be a regular expression that tells what headers
@@ -718,7 +718,7 @@ flagged as read until it is exposed in i
A value of t causes VM to display as much of the message as will
fit in the window associated with the folder buffer.
-A nil value causes VM not to preview messages; no text lines are hidden and
+A nil value causes VM not to preview messages; no text lines are hidden and
messages are immediately flagged as read."
:type '(choice boolean integer))
@@ -968,11 +968,11 @@ Example:
(setq vm-mime-external-content-types-alist
'(
- (\"text/html\" \"netscape\")
- (\"image/gif\" \"xv\")
- (\"image/jpeg\" \"xv\")
- (\"video/mpeg\" \"mpeg_play\")
- (\"video\" \"xanim\")
+ (\"text/html\" \"netscape\")
+ (\"image/gif\" \"xv\")
+ (\"image/jpeg\" \"xv\")
+ (\"video/mpeg\" \"mpeg_play\")
+ (\"video\" \"xanim\")
)
)
@@ -1272,7 +1272,7 @@ The format of the list is
((TYPE . FORMAT) (TYPE . FORMAT) ...)
-The list is searched sequentially and the FORMAT corresponding to
+The list is searched sequentially and the FORMAT corresponding to
the first TYPE that matches the type of the button's object is
used.
@@ -1307,7 +1307,7 @@ Recognized specifiers are:
s - an empty string if %n would display \"1\", otherwise
\"s\".
t - the content type of the object, e.g. \"text/enriched\".
- T - for message/partial objects, the total number of expected
+ T - for message/partial objects, the total number of expected
parts. \"?\" is displayed if the object doesn't specify
the total number of parts expected.
x - the content type of the external body of a message/external-body
@@ -1316,7 +1316,7 @@ Recognized specifiers are:
the field width and precision for the concatentation of
group of format specifiers. Example: \"%.35(%d, %t, %f%)\"
specifies a maximum display width of 35 characters for the
- concatenation of the content description, content type and
+ concatenation of the content description, content type and
suggested file name.
) - ends a group.
@@ -1406,8 +1406,8 @@ line can be protected."
("\\.tiff?$" . "image/tiff")
("\\.html?$" . "text/html")
("\\.au$" . "audio/basic")
- ("\\.mpe?g$" . "video/mpeg")
- ("\\.mov$" . "video/quicktime")
+ ("\\.mpe?g$" . "video/mpeg")
+ ("\\.mov$" . "video/quicktime")
("\\.e?ps$" . "application/postscript")
("\\.pdf$" . "application/pdf")
("\\.xls$" . "application/vnd.ms-excel")
@@ -1415,7 +1415,7 @@ line can be protected."
("\\.ppt$" . "application/vnd.ms-powerpoint")
)
"*Alist used to guess a MIME content type based on a file name.
-The list format is
+The list format is
((REGEXP . TYPE) ...)
@@ -1450,7 +1450,7 @@ value of `vm-infer-mime-types' is non-ni
("application/zip" . ".zip")
)
"*Alist used to select a filename suffix for MIME object temporary files.
-The list format is
+The list format is
((TYPE . SUFFIX) ...)
@@ -1839,16 +1839,16 @@ otherwise noted ARG may be omitted.
The recognized SELECTORs are:
author - matches message if ARG matches the author; ARG should be a
- regular expression.
+ regular expression.
author-or-recipient
- matches message if ARG matches the author of
the message or any of its recipients; ARG
should be a regular expression.
and - matches the message if all its argument
- selectors match the message. Example:
- (and (author \"Derek McGinty\") (new))
- matches all new messages from Derek McGinty.
- `and' takes any number of arguments.
+ selectors match the message. Example:
+ (and (author \"Derek McGinty\") (new))
+ matches all new messages from Derek McGinty.
+ `and' takes any number of arguments.
any - matches any message.
deleted - matches message if it is flagged for deletion.
edited - matches message if it has been edited.
@@ -1856,60 +1856,60 @@ The recognized SELECTORs are:
forwarded - matches message if it has been forwarded using
a variant of `vm-forward-message' or `vm-send-digest'.
header - matches message if ARG matches any part of the header
- portion of the message; ARG should be a
- regular expression.
+ portion of the message; ARG should be a
+ regular expression.
header-or-text - matches message if ARG matches any part of the
headers or the text portion of the message;
ARG should be a regular expression.
label - matches message if message has a label named ARG.
less-chars-than - matches message if message has less than ARG
- characters. ARG should be a number.
+ characters. ARG should be a number.
less-lines-than - matches message if message has less than ARG
- lines. ARG should be a number.
+ lines. ARG should be a number.
more-chars-than - matches message if message has more than ARG
- characters. ARG should be a number.
+ characters. ARG should be a number.
more-lines-than - matches message if message has more than ARG
- lines. ARG should be a number.
+ lines. ARG should be a number.
marked - matches message if it is marked, as with `vm-mark-message'.
new - matches message if it is new.
not - matches message only if its selector argument
- does NOT match the message. Example:
- (not (deleted))
- matches messages that are not deleted.
+ does NOT match the message. Example:
+ (not (deleted))
+ matches messages that are not deleted.
or - matches the message if any of its argument
- selectors match the message. Example:
- (or (author \"Dave Weckl\") (subject \"drum\"))
- matches messages from Dave Weckl or messages
- with the word \"drum\" in their Subject header.
- `or' takes any number of arguments.
+ selectors match the message. Example:
+ (or (author \"Dave Weckl\") (subject \"drum\"))
+ matches messages from Dave Weckl or messages
+ with the word \"drum\" in their Subject header.
+ `or' takes any number of arguments.
read - matches message if it is neither new nor unread.
recent - matches message if it is new.
recipient - matches message if ARG matches any part of the recipient
- list of the message. ARG should be a regular expression.
+ list of the message. ARG should be a regular expression.
redistributed - matches message if it has been redistributed using
`vm-resend-message'.
replied - matches message if it has been replied to.
sent-after - matches message if it was sent after the date ARG.
- A fully specified date looks like this:
- \"31 Dec 1999 23:59:59 GMT\"
- although the parts can appear in any order.
- You can leave out any part and it will
- default to the current date's value for that
- part, with the exception of the hh:mm:ss
- part which defaults to midnight.
+ A fully specified date looks like this:
+ \"31 Dec 1999 23:59:59 GMT\"
+ although the parts can appear in any order.
+ You can leave out any part and it will
+ default to the current date's value for that
+ part, with the exception of the hh:mm:ss
+ part which defaults to midnight.
sent-before - matches message if it was sent before the date ARG.
- A fully specified date looks like this:
- \"31 Dec 1999 23:59:59 GMT\"
- although the parts can appear in any order.
- You can leave out any part and it will
- default to the current date's value for that
- part, with the exception of the hh:mm:ss
- part which defaults to midnight.
+ A fully specified date looks like this:
+ \"31 Dec 1999 23:59:59 GMT\"
+ although the parts can appear in any order.
+ You can leave out any part and it will
+ default to the current date's value for that
+ part, with the exception of the hh:mm:ss
+ part which defaults to midnight.
subject - matches message if ARG matches any part of the message's
- subject; ARG should be a regular expression.
+ subject; ARG should be a regular expression.
text - matches message if ARG matches any part of the text
- portion of the message; ARG should be a
- regular expression.
+ portion of the message; ARG should be a
+ regular expression.
unanswered - matches message if it has not been replied to.
Same as the `unreplied' selector.
undeleted - matches message if it has not been deleted.
@@ -2191,7 +2191,7 @@ bound to `l a'."
:type 'boolean)
(defcustom vm-digest-preamble-format "\"%s\" (%F)"
- "*String which specifies the format of the preamble lines generated by
+ "*String which specifies the format of the preamble lines generated by
`vm-send-digest' when it is invoked with a prefix argument. One
line will be generated for each message put into the digest. See the
documentation for the variable `vm-summary-format' for information
@@ -2694,7 +2694,7 @@ Recognized specifiers are:
the field width and precision for the concatentation of
group of format specifiers. Example: \"%.35(%d, %t, %f%)\"
specifies a maximum display width of 35 characters for the
- concatenation of the content description, content type and
+ concatenation of the content description, content type and
suggested file name.
) - ends a group.
@@ -2972,7 +2972,7 @@ must be set non-nil for a toolbar to app
Consider this variable experimental; it may not be supported forever."
:type 'sexp)
-(defcustom vm-use-menus
+(defcustom vm-use-menus
(nconc (list 'folder 'motion 'send 'mark 'label 'sort 'virtual)
(cond ((string-match ".*-.*-\\(win95\\|nt\\)" system-configuration)
nil)
@@ -3045,11 +3045,11 @@ MIME type, which provides a reference to
object itself. The specification should be a list of symbols
with the following meanings
- lynx - means VM should try to use the lynx program.
- wget - means VM should try to use the wget program.
- w3m - means VM should try to use the w3m program.
+ lynx - means VM should try to use the lynx program.
+ wget - means VM should try to use the wget program.
+ w3m - means VM should try to use the w3m program.
fetch - means VM should try to use the fetch program.
- curl - means VM should try to use the curl program.
+ curl - means VM should try to use the curl program.
The list can contain all these values and VM will try them all,
but not in any particular order, except that the url-w3 method
@@ -3514,7 +3514,7 @@ confusing."
:type 'hook)
(defcustom vm-mime-display-function nil
- "*If non-nil, this should name a function to be called inside
+ "*If non-nil, this should name a function to be called inside
`vm-decode-mime-message' to do the MIME display the current
message. The function is called with no arguments, and at the
time of the call the current buffer will be the `presentation'
@@ -3648,7 +3648,7 @@ named by `vm-movemail-program'."
:type '(repeat string))
(defcustom vm-konqueror-client-program "kfmclient"
- "*Name of program to use to issue requests to Konqueror.
+ "*Name of program to use to issue requests to Konqueror.
`vm-mouse-send-url-to-konqueror' uses this."
:type 'string)
@@ -3698,7 +3698,7 @@ support SSL. Set this to nil and VM wil
"*List of command line switches to pass to stunnel.
Leave this set to nil unless you understand how VM uses stunnel
and know that you need to change something to get stunnel working."
-:type '(list string))
+:type '(repeat string))
(defcustom vm-stunnel-random-data-method 'generate
"*Specifies what VM should do about sending the PRNG.
@@ -3889,7 +3889,7 @@ mail is not sent."
(define-key map "M" (make-sparse-keymap))
(define-key map "MN" 'vm-next-command-uses-marks)
(define-key map "Mn" 'vm-next-command-uses-marks)
- (define-key map "MM" 'vm-mark-message)
+ (define-key map "MM" 'vm-mark-message)
(define-key map "MU" 'vm-unmark-message)
(define-key map "Mm" 'vm-mark-all-messages)
(define-key map "Mu" 'vm-clear-all-marks)
@@ -3952,7 +3952,7 @@ mail is not sent."
(defvar vm-folders-summary-mode-map vm-mode-map
"Keymap for VM Folders Summary mode")
-(defvar vm-mail-mode-map
+(defvar vm-mail-mode-map
(let ((map (make-sparse-keymap)))
(define-key map "\C-c\C-v" vm-mode-map)
(define-key map "\C-c\C-p" 'vm-preview-composition)
@@ -4732,7 +4732,7 @@ that has a match.")
)
))
"Alist that maps MIME character sets to MULE coding systems.")
-
+
(defvar vm-mime-mule-charset-to-charset-alist
'(
(latin-iso8859-1 "iso-8859-1")
More information about the XEmacs-CVS
mailing list