xemacs-beta: lisp/vm/vm-vars.el comparison

comparison lisp/vm/vm-vars.el @ 24:4103f0995bd7 r19-15b95

Import from CVS: tag r19-15b95

author	cvs
date	Mon, 13 Aug 2007 08:51:03 +0200
parents	859a2309aef8
children	441bb1e64a06

comparison

equal deleted inserted replaced

-:0edd3412f124
+:4103f0995bd7
 (defvar vm-pop-md5-program "md5"
 "*Program that reads a message on its standard input and writes an
 MD5 digest on its output.")
+(defvar vm-pop-max-message-size nil
+"*If VM is about to retrieve via POP a message larger than this size
+(in bytes) it will ask the you whether it should retrieve the message.
+If VM is retrieving mail automatically because vm-auto-get-new-mail is
+set to a numeric value then you will not be prompted about large messages.
+This is to avoid prompting you while you're typing in another buffer.
+In this case the large message will be skipped with a warning
+message.
+A nil value for vm-pop-max-message-size means no size limit.")
+(defvar vm-pop-messages-per-session nil
+"*Non-nil value should be a integer specifying how many messages to
+retrieve per POP session.  When you type 'g' to get new mail, VM
+will only retrieve that many messages from any particular POP maildrop.
+To retrieve more messages, type 'g' again.
+A nil value means there's no limit.")
+(defvar vm-pop-bytes-per-session nil
+"*Non-nil value should be a integer specifying how many bytes to
+retrieve per POP session.  When you type 'g' to get new mail, VM
+will only retrieve messages until the byte limit is reached on
+any particular POP maildrop.  To retrieve more messages, type 'g'
+again.
+A nil value means there's no limit.")
 (defvar vm-recognize-pop-maildrops "^[^:]+:[^:]+:[^:]+:[^:]+:[^:]+"
 "*Value if non-nil should be a regular expression that matches
 spool names found in vm-spool-files that should be considered POP
 maildrops.  A nil value tells VM that all the spool names are to
 be considered files.")
 If the value is a number, then it specifies how often (in
 seconds) VM should check for new mail and try to retrieve it.
 This is done asynchronously and may occur while you are editing
 other files.  It should not disturb your editing, except perhaps
 for a pause while the check is being done.")
+(defvar vm-mail-check-interval 300
+"*Numeric value specifies the number of seconds between checks
+for new mail.  The maildrops for all visited folders are checked.
+The buffer local variable vm-spooled-mail-waiting is set non-nil
+in the buffers of those folders that have mail waiting.")
+(defvar vm-spooled-mail-waiting nil
+"Value is non-nil if there is mail waiting for the current folder.
+This variable's value is local in all buffers.
+VM maintains this variable, you should not set it.")
+(make-variable-buffer-local 'vm-spooled-mail-waiting)
 (defvar vm-default-folder-type
 (cond ((not (boundp 'system-configuration))
 	 'From_)
 	((or (string-match "-solaris" system-configuration)
 A value of 'best-internal means choose the best part that can be
 displayed internally, i.e. with the built-in capabilities of Emacs.
 If none of the parts can be displayed internally, behavior reverts to
 that of 'best.")
+(defvar vm-mime-default-face-charsets '("us-ascii" "iso-8859-1")
+"*List of character sets that can use the `default' face.
+For other characters sets VM will have to create a new face and assign
+a font to it that can be used to display that character set.")
+(defvar vm-mime-charset-font-alist nil
+"*Assoc list of character sets and fonts that can be used to display them.
+The format of the list is:
+( (CHARSET . FONT) ...)
+CHARSET is a string naming a MIME registered character set such
+as \"iso-8859-5\".  Character set names should be specified in
+lower case.
+FONT is a string naming a font that can be used to display CHARSET.
+An example setup might be:
+(setq vm-mime-charset-font-alist
+'(
+(\"iso-8859-7\" . \"-*-*-medium-r-normal--16-160-72-72-c-80-iso8859-7\")
+)
+)
+This variable is only useful for character sets whose characters
+can all be encoded in single 8-bit bytes.  Also multiple fonts
+can only be displayed if you're running under a window system
+e.g. X windows.  So this variable will have no effect if you're
+running Emacs on a tty.
+Note that under FSF Emacs any fonts you use must be the same size
+as your default font.  XEmacs does not have this limitation.")
 (defvar vm-mime-button-face
 (cond ((fboundp 'find-face)
 	   (or (and (not (eq (device-type) 'tty)) (find-face 'gui-button-face)
 		    'gui-button-face)
 	       (and (find-face 'bold-italic) 'bold-italic)))
 (defvar vm-mime-8bit-composition-charset "iso-8859-1"
 "*Character set that VM should assume if it finds non-US-ASCII characters
 in a composition buffer.  Composition buffers are assumed to use
 US-ASCII unless the buffer contains a byte with the high bit set.
 This variable specifies what character set VM should assume if
-such a character is found.")
+such a character is found.
+This variable is unused in XEmacs/MULE.  Since multiple character
+sets can be displayed in a single buffer under MULE, VM will map
+the file coding system of the buffer to a single MIME character
+that can display all the buffer's characters.")
 (defvar vm-mime-8bit-text-transfer-encoding 'quoted-printable
 "*Symbol specifying what kind of transfer encoding to use on 8bit
 text.  Characters with the high bit set cannot safely pass
 through all mail gateways and mail transport software.  MIME has
 two transfer encodings that convert 8-bit data to 7-bit for same
 transport. Quoted-printable leaves the text mostly readable even
-if the recipent does not have a MIME-capable mail reader.  BASE64
+if the recipient does not have a MIME-capable mail reader.  BASE64
-is unreadable with a MIME-capable mail reader, unless your name
+is unreadable without a MIME-capable mail reader, unless your name
 is U3BvY2s=.
 A value of 'quoted-printable, means to use quoted-printable encoding.
 A value of 'base64 means to use BASE64 encoding.
 A value of '8bit means to send the message as is.
 (defvar vm-mime-attachment-auto-type-alist
 '(
 ("\\.jpe?g"		.	"image/jpeg")
 ("\\.gif"		.	"image/gif")
 ("\\.png"		.	"image/png")
-("\\.tiff"		.	"image/tiff")
+("\\.tiff?"		.	"image/tiff")
-("\\.htm?l"		.	"text/html")
+("\\.html?"		.	"text/html")
 ("\\.au"		.	"audio/basic")
 ("\\.mpe?g" 	.	"video/mpeg")
 ("\\.ps"		.	"application/postscript")
 )
 "*Alist used to guess a MIME content type based on a file name.
 "*Non-nil value means remove empty (zero length) folders after saving
 A value of t means always remove the folders.
 A value of nil means never remove empty folders.
 A value that's not t or nil means ask before removing empty folders.")
-(defvar vm-flush-interval t
+(defvar vm-flush-interval 90
 "*Non-nil value specifies how often VM flushes its cached internal
 data.  A numeric value gives the number of seconds between
 flushes.  A value of t means flush every time there is a change.
 Nil means don't do flushing until a message or folder is saved.
 (defvar vm-search-other-frames t
 "*Non-nil means VM should search frames other than the selected frame
 when looking for a window that is already displaying a buffer that
 VM wants to display or undisplay.")
+(defvar vm-image-directory
+(expand-file-name (concat data-directory "vm/"))
+"*Value specifies the directory VM should find its artwork.")
 (defvar vm-use-toolbar
 '(next previous delete/undelete autofile file
 reply compose print visit quit nil help)
 "*Non-nil value causes VM to provide a toolbar interface.
 Value should be a list of symbols that will determine which
-toolbar buttons will appears and in what order.  Valid symbol
+toolbar buttons will appear and in what order.  Valid symbol
 value within the list are:
 autofile
 compose
 delete/undelete
 file
+getmail
 help
 mime
 next
 previous
 print
 visit
 nil
 If nil appears in the list, it should appear exactly once.  All
 buttons after nil in the list will be displayed flushright in
-top/bottom toolbars and flush bottom in left/right toolbars.
+top/bottom toolbars and flushbottom in left/right toolbars.
 This variable only has meaning under XEmacs 19.12 and beyond.
 See also vm-toolbar-orientation to control where the toolbar is placed.")
 (defvar vm-toolbar-orientation 'left
 Legal values are `left', `right' `top' and `bottom'.  Any other
 value will be interpreted as `top'.
 This variable only has meaning under XEmacs 19.12 and beyond.")
-(defvar vm-toolbar-pixmap-directory
+(defvar vm-toolbar-pixmap-directory vm-image-directory
-(expand-file-name (concat data-directory "vm/"))
 "*Value specifies the directory VM should find its toolbar pixmaps.")
 (defvar vm-toolbar nil
 "*Non-nil value should be a list of toolbar button descriptors.
 See the documentation for the variable default-toolbar for a
 (define-key map "\C-c\C-a" 'vm-mime-attach-file)
 (define-key map "\C-c\C-m" 'vm-mime-attach-mime-file)
 (define-key map "\C-c\C-y" 'vm-yank-message)
 (define-key map "\C-c\C-s" 'vm-mail-send)
 (define-key map "\C-c\C-c" 'vm-mail-send-and-exit)
-(define-key map "\C-c\C-w" 'mail-signature)
-(define-key map "\C-c\C-t" 'mail-text)
-(define-key map "\C-c\C-q" 'mail-fill-yanked-message)
-(define-key map "\C-c\C-f\C-t" 'mail-to)
-(define-key map "\C-c\C-f\C-b" 'mail-bcc)
-(define-key map "\C-c\C-f\C-s" 'mail-subject)
-(define-key map "\C-c\C-f\C-c" 'mail-cc)
-(define-key map "\C-c\C-f\C-f" 'mail-fcc)
 map )
 "Keymap for VM Mail mode buffers.")
 (defvar vm-edit-message-map
 (let ((map (make-sparse-keymap)))
 (make-variable-buffer-local 'vm-block-new-mail)
 (defvar vm-saved-buffer-modified-p nil)
 (make-variable-buffer-local 'vm-saved-buffer-modified-p)
 (defvar vm-kept-mail-buffers nil)
 (defvar vm-inhibit-write-file-hook nil)
-(defvar vm-chop-full-name-function 'vm-choose-chop-full-name-function)
+;; used to choose between the default and
+;; mail-extract-address-components but I don't see the utility of
+;; it anymore.  It tries to be too smart.
+;;(defvar vm-chop-full-name-function 'vm-choose-chop-full-name-function)
+(defvar vm-chop-full-name-function 'vm-default-chop-full-name)
 (defvar vm-session-beginning t)
 (defvar vm-init-file-loaded nil)
 (defvar vm-window-configurations nil)
 (defvar vm-window-configuration nil)
 (defvar vm-message-id-number 0)
 ("   " vm-ml-message-number
 " (of " vm-ml-highest-message-number ")")
 (vm-folder-type
 "   (unrecognized folder type)"
 "   (no messages)")))
+(vm-spooled-mail-waiting " Mail")
 (vm-message-list
 ("  %[ " vm-ml-message-attributes-alist
 (vm-ml-labels ("; " vm-ml-labels)) " %]    ")
 ("  %[%]   "))
 "%p" "   " global-mode-string))
 (make-variable-buffer-local 'vm-ml-message-written)
 (defvar vm-ml-message-marked nil)
 (make-variable-buffer-local 'vm-ml-message-marked)
 ;; to make the tanjed compiler shut up
 (defvar vm-pop-read-point nil)
+(defvar vm-pop-ok-to-ask nil)
 (defvar vm-reply-list nil)
 (defvar vm-forward-list nil)
 (defvar vm-redistribute-list nil)
 (defvar current-itimer nil)
 (defvar current-menubar nil)
 (defvar vm-message-garbage-alist nil)
 (make-variable-buffer-local 'vm-message-garbage-alist)
 (defvar vm-folder-garbage-alist nil)
 (make-variable-buffer-local 'vm-folder-garbage-alist)
 (defconst vm-mime-header-list '("MIME-Version:" "Content-"))
-(defconst vm-mime-xemacs-mule-charset-alist
+(defconst vm-mime-mule-charset-to-coding-alist
 '(
 ("us-ascii"		no-conversion)
 ("iso-8859-1"	no-conversion)
 ("iso-8859-2"	iso-8859-2)
 ("iso-8859-3"	iso-8859-3)
 ;; probably not correct, but probably better than nothing.
 ("iso-2022-jp-2"	iso-2022-jp)
 ("iso-2022-int-1"	iso-2022-int-1)
 ("iso-2022-kr"	iso-2022-kr)
 ("euc-kr"		iso-2022-kr)
+))
+(defvar vm-mime-mule-charset-to-charset-alist
+'(
+(latin-iso8859-1	"iso-8859-1")
+(latin-iso8859-2	"iso-8859-2")
+(latin-iso8859-3	"iso-8859-3")
+(latin-iso8859-4	"iso-8859-4")
+(cyrillic-iso8859-5	"iso-8859-5")
+(arabic-iso8859-6	"iso-8859-6")
+(greek-iso8859-7	"iso-8859-7")
+(hebrew-iso8859-8	"iso-8859-8")
+(latin-iso8859-9	"iso-8859-9")
+(japanese-jisx0208	"iso-2022-jp")
+(korean-ksc5601	"iso-2022-kr")
+(chinese-gb2312	"iso-2022-jp")
+(sisheng		"iso-2022-jp")
+(thai-tis620	"iso-2022-jp")
+))
+(defvar vm-mime-mule-coding-to-charset-alist
+'(
+(iso-2022-8		"iso-2022-jp")
+(iso-2022-7-unix	"iso-2022-jp")
+(iso-2022-7-dos	"iso-2022-jp")
+(iso-2022-7-mac	"iso-2022-jp")
 ))
 (defconst vm-mime-charset-completion-alist
 '(
 ("us-ascii")
 ("iso-8859-1")

Mercurial > hg > xemacs-beta

comparison lisp/vm/vm-vars.el @ 24:4103f0995bd7 r19-15b95