🚀 go-pugleaf

Here's a patch to vm-vars.el to fix the unquoted references to vm-
symbols in doc strings, so that Emacs' help mode can make them
mouse-able:

*** vm-7.18/vm-vars.el.orig	Mon Aug 18 20:10:42 2003
--- vm-7.18/vm-vars.el	Thu Feb 19 17:58:58 2004
***************
*** 155,161 ****

       The second form is used to speak POP over an SSL connection.
       You must have the stunnel program installed and the variable
!     vm-stunnel-program naming it in order for IMAP over SSL to
       work.  The SSL version of the POP server will not use the
       same port as the non-SSL version.

--- 155,161 ----

       The second form is used to speak POP over an SSL connection.
       You must have the stunnel program installed and the variable
!     `vm-stunnel-program' naming it in order for IMAP over SSL to
       work.  The SSL version of the POP server will not use the
       same port as the non-SSL version.

***************
*** 407,413 ****
    ((POPDROP NAME) ...)

   POPDROP is a POP maildrop specification in the same format used
! by vm-spool-files (which see).

   NAME is a string that should give a less cumbersome name that you
   will use to refer to this maildrop when using `vm-visit-pop-folder'."
--- 407,413 ----
    ((POPDROP NAME) ...)

   POPDROP is a POP maildrop specification in the same format used
! by `vm-spool-files' (which see).

   NAME is a string that should give a less cumbersome name that you
   will use to refer to this maildrop when using `vm-visit-pop-folder'."
***************
*** 431,437 ****
   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.  You will be able to retrieved any skipped messages
! later by running vm-get-new-mail interactively.

   A nil value for `vm-imap-max-message-size' means no size limit."
     :type '(choice (const nil) integer))
--- 431,437 ----
   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.  You will be able to retrieved any skipped messages
! later by running `vm-get-new-mail' interactively.

   A nil value for `vm-imap-max-message-size' means no size limit."
     :type '(choice (const nil) integer))
***************
*** 493,499 ****
   (defcustom vm-imap-server-list nil
     "*List of IMAP maildrop specifications that tell VM the IMAP servers
   you have access to and how to log into them.  The IMAP maildrop
! specification in the same format used by vm-spool-files (which
   see).  The mailbox part of the specifiation is ignored and should
   be asterisk or some other placeholder.

--- 493,499 ----
   (defcustom vm-imap-server-list nil
     "*List of IMAP maildrop specifications that tell VM the IMAP servers
   you have access to and how to log into them.  The IMAP maildrop
! specification in the same format used by `vm-spool-files' (which
   see).  The mailbox part of the specifiation is ignored and should
   be asterisk or some other placeholder.

***************
*** 1262,1268 ****

   (defcustom vm-mime-confirm-delete t
     "*Non-nil value causes VM to request confirmation from the user before
! deleting a MIME object with vm-delete-mime-object."
     :type 'boolean)

   (defcustom vm-mime-button-face 'gui-button-face
--- 1262,1268 ----

   (defcustom vm-mime-confirm-delete t
     "*Non-nil value causes VM to request confirmation from the user before
! deleting a MIME object with `vm-delete-mime-object'."
     :type 'boolean)

   (defcustom vm-mime-button-face 'gui-button-face
***************
*** 1505,1511 ****

   (defcustom vm-mime-attachment-source-directory nil
     "*Non-nil value is a default source directory for MIME attachments.
! When vm-mime-attach-file prompts you for the name of a file to
   attach, any relative pathnames will be relative to this directory."
     :type '(choice (const nil) directory))

--- 1505,1511 ----

   (defcustom vm-mime-attachment-source-directory nil
     "*Non-nil value is a default source directory for MIME attachments.
! When `vm-mime-attach-file' prompts you for the name of a file to
   attach, any relative pathnames will be relative to this directory."
     :type '(choice (const nil) directory))

***************
*** 3549,3555 ****
   IMAP session process.  This hook is only run if the
   authentication method for the IMAP mailbox is ``preauth''.  Each
   hook is called with five arguments: HOST, PORT, MAILBOX, USER,
! PASSWORD.  (See the documentation for vm-spool-files to find out
   about these arguments.)  It is the responsibility of the hook
   function to create an Emacs process whose input/output streams
   are connected to an authenticated IMAP session, and to return
--- 3549,3555 ----
   IMAP session process.  This hook is only run if the
   authentication method for the IMAP mailbox is ``preauth''.  Each
   hook is called with five arguments: HOST, PORT, MAILBOX, USER,
! PASSWORD.  (See the documentation for `vm-spool-files' to find out
   about these arguments.)  It is the responsibility of the hook
   function to create an Emacs process whose input/output streams
   are connected to an authenticated IMAP session, and to return
***************
*** 3997,4003 ****
       (cond ((fboundp 'set-keymap-name)
   	   (set-keymap-name map 'vm-edit-message-map)))
       map )
!   "Keymap for the buffers created by VM's vm-edit-message command.")

   (defvar vm-mime-reader-map
     (let ((map (make-sparse-keymap)))
--- 3997,4003 ----
       (cond ((fboundp 'set-keymap-name)
   	   (set-keymap-name map 'vm-edit-message-map)))
       map )
!   "Keymap for the buffers created by VM's `vm-edit-message' command.")

   (defvar vm-mime-reader-map
     (let ((map (make-sparse-keymap)))
***************
*** 4441,4450 ****
   the trailing part of a word that caused completion to fail, and retry
   the completion with the resulting word.")
   (defvar vm-minibuffer-completion-table nil
!   "Completion table used by vm-minibuffer-complete-word.
   Should be just a list of strings, not an alist or an obarray.")
   (defvar vm-completion-auto-space t
!   "Non-nil value means that vm-minibuffer-complete-word should automatically
   append a space to words that complete unambiguously.")
   (defconst vm-attributes-vector-length 9)
   (defconst vm-cache-vector-length 25)
--- 4441,4450 ----
   the trailing part of a word that caused completion to fail, and retry
   the completion with the resulting word.")
   (defvar vm-minibuffer-completion-table nil
!   "Completion table used by `vm-minibuffer-complete-word'.
   Should be just a list of strings, not an alist or an obarray.")
   (defvar vm-completion-auto-space t
!   "Non-nil value means that `vm-minibuffer-complete-word' should automatically
   append a space to words that complete unambiguously.")
   (defconst vm-attributes-vector-length 9)
   (defconst vm-cache-vector-length 25)

-- 
Kevin Rodgers