*** dist/README.dist Sun Jan 17 17:42:31 1999 --- README Fri Aug 13 10:11:56 1999 *************** *** 2,6 **** ! 0) Look at the Makefile and change the values of EMACS_VERSION, ! EMACS, INFODIR, LISPDIR, and PIXMAPDIR. If they are not right for your ! system, change them. --- 2,6 ---- ! 0) Look at the Makefile and change the values of EMACS, INFODIR, ! LISPDIR, and PIXMAPDIR. If they are not right for your system, ! change them. *** dist/vm-mime.el.dist Mon Aug 2 16:54:39 1999 --- vm-mime.el Tue Aug 3 17:59:09 1999 *************** *** 768,770 **** ;; Content-Type: text ! (cond ((string-match "^text$" (car type)) (setq type '("text/plain" "charset=us-ascii") --- 768,770 ---- ;; Content-Type: text ! (cond ((and type (string-match "^text$" (car type))) (setq type '("text/plain" "charset=us-ascii") *** dist/vm-pop.el.dist Fri Jan 29 00:13:37 1999 --- vm-pop.el Tue Aug 10 12:34:16 1999 *************** *** 734,738 **** (insert string) ! (call-process-region (point-min) (point-max) ! "/bin/sh" t buffer nil ! shell-command-switch vm-pop-md5-program) ;; MD5 digest is 32 chars long --- 734,743 ---- (insert string) ! (if (fboundp 'md5) ! (progn ! (goto-char (point-min)) ! (insert (md5 buffer (point-min) (point-max))) ! (delete-region (point) (point-max))) ! (call-process-region (point-min) (point-max) ! (or shell-file-name "/bin/sh") t buffer nil ! shell-command-switch vm-pop-md5-program)) ;; MD5 digest is 32 chars long *** dist/vm-reply.el.dist Fri May 21 01:07:44 1999 --- vm-reply.el Mon Aug 23 01:42:18 1999 *************** *** 496,497 **** --- 496,498 ---- (error "Message not sent."))) + (save-excursion (run-hooks 'vm-mail-send-hook)) (vm-mail-mode-insert-date-maybe) *** dist/vm-startup.el.dist Mon Aug 2 16:54:41 1999 --- vm-startup.el Fri Aug 27 16:33:28 1999 *************** *** 317,319 **** ! This is VM 6.74. --- 317,319 ---- ! This is VM 6.75. *************** *** 521,522 **** --- 521,523 ---- vm-mail-mode-hook + vm-mail-send-hook vm-make-crash-box-name *************** *** 1041,1042 **** --- 1042,1044 ---- 'vm-mail-mode-hook + 'vm-mail-send-hook 'vm-mime-7bit-composition-charset *** dist/vm-vars.el.dist Mon Aug 2 16:54:42 1999 --- vm-vars.el Sun Aug 22 19:10:59 1999 *************** *** 2573,2575 **** "*List of hook functions called every time a message with the 'new' ! attribute is made to be the current message. When the hooks are run the current buffer will be the folder containing the message and the --- 2573,2575 ---- "*List of hook functions called every time a message with the 'new' ! attribute is made to be the current message. When the hooks are run, the current buffer will be the folder containing the message and the *************** *** 2580,2582 **** "*List of hook functions called every time a message with the 'unread' ! attribute is made to be the current message. When the hooks are run the current buffer will be the folder containing the message and the --- 2580,2582 ---- "*List of hook functions called every time a message with the 'unread' ! attribute is made to be the current message. When the hooks are run, the current buffer will be the folder containing the message and the *************** *** 2587,2589 **** "*List of hook functions called every time a message ! is made to be the current message. When the hooks are run the current buffer will be the folder containing the message and the --- 2587,2589 ---- "*List of hook functions called every time a message ! is made to be the current message. When the hooks are run, the current buffer will be the folder containing the message and the *************** *** 2596,2598 **** `vm-get-new-mail', or from a digest with `vm-burst-digest'. When the ! hooks are run the current buffer will be the folder containing the message and the start and end of the message will be --- 2596,2598 ---- `vm-get-new-mail', or from a digest with `vm-burst-digest'. When the ! hooks are run, the current buffer will be the folder containing the message and the start and end of the message will be *************** *** 2610,2613 **** hooks are run, the new messages will have already been added to ! the message list but may not yet appear in the summary. When the ! hooks are run the current buffer will be the folder containing the messages.") --- 2610,2613 ---- hooks are run, the new messages will have already been added to ! the message list but may not yet appear in the summary. ! Also, the current buffer will be the folder containing the messages.") *************** *** 2708,2710 **** "*List of hook functions to run when a VM presentation buffer is created. ! The current buffer will be that buffer when the hooks are run. Presentation buffers are used to display messages when some type of decoding --- 2708,2710 ---- "*List of hook functions to run when a VM presentation buffer is created. ! The current buffer will be the new presentation buffer when the hooks are run. Presentation buffers are used to display messages when some type of decoding *************** *** 2717,2719 **** (defvar vm-summary-pointer-update-hook nil ! "*List of hook functions to run when VM summary pointer is updated. When the hooks are run, the current buffer will be the summary buffer.") --- 2717,2719 ---- (defvar vm-summary-pointer-update-hook nil ! "*List of hook functions to run when the VM summary pointer is updated. When the hooks are run, the current buffer will be the summary buffer.") *************** *** 2722,2724 **** "*List of hook functions that are run every time VM wants to ! display a buffer. When the hooks are run the current buffer will be the buffer that VM wants to display. The hooks are expected --- 2722,2724 ---- "*List of hook functions that are run every time VM wants to ! display a buffer. When the hooks are run, the current buffer will be the buffer that VM wants to display. The hooks are expected *************** *** 2732,2734 **** "*List of hook functions that are run every time VM wants to ! remove a buffer from the display. When the hooks are run the current buffer will be the buffer that VM wants to disappear. --- 2732,2734 ---- "*List of hook functions that are run every time VM wants to ! remove a buffer from the display. When the hooks are run, the current buffer will be the buffer that VM wants to disappear. *************** *** 2770,2777 **** (defvar mail-yank-hooks nil ! "Hooks called after a message is yanked into a mail composition. ! (This hook is deprecated, you should use mail-citation-hook instead.) ! Value is a list of functions to be run. Each hook function can find the newly yanked message between point and mark. --- 2770,2783 ---- + (defvar vm-mail-send-hook nil + "*List of hook functions to call just before sending a message. + The hooks are run after confirming that you want to send the + message (see `vm-confirm-mail-send') but before MIME encoding and + FCC processing.") + (defvar mail-yank-hooks nil ! "Hooks called after a message is yanked into a mail composition buffer. ! (This hook is deprecated, you should use mail-citation-hook instead.) ! The value of this hook is a list of functions to be run. Each hook function can find the newly yanked message between point and mark. *** dist/vm-version.el.dist Mon Aug 2 16:54:42 1999 --- vm-version.el Fri Aug 27 16:33:27 1999 *************** *** 4,6 **** ! (defconst vm-version "6.74" "Version number of VM.") --- 4,6 ---- ! (defconst vm-version "6.75" "Version number of VM.")