Article View: gnu.emacs.vm.bug
Article #8818(unimportant :-) bug in vm-mail?
From: Thorbjoern Hansen
Date: Sat, 17 Apr 1993 01:27
Date: Sat, 17 Apr 1993 01:27
39 lines
1925 bytes
1925 bytes
vm-reply.el in VM 5.33 beta says:
(defun vm-mail ()
...
(let ((mail-buffer (if (memq major-mode '(vm-mode vm-virtual-mode))
(current-buffer))))
(vm-mail-internal)
(if (null mail-buffer)
()
(use-local-map (copy-keymap (current-local-map)))
(local-set-key "\C-c\C-y" 'vm-yank-message)
(local-set-key "\C-c\C-v" vm-mode-map)
(setq vm-mail-buffer mail-buffer))
(local-set-key "\C-c\C-s" 'vm-mail-send)
(local-set-key "\C-c\C-c" 'vm-mail-send-and-exit)
(local-set-key "\C-cy" 'vm-yank-message-other-folder)))
Shouldn't that be:
(defun vm-mail ()
...
(let ((mail-buffer (if (memq major-mode '(vm-mode vm-virtual-mode))
(current-buffer))))
(vm-mail-internal)
(use-local-map (copy-keymap (current-local-map)))
(if (null mail-buffer)
()
(local-set-key "\C-c\C-y" 'vm-yank-message)
(local-set-key "\C-c\C-v" vm-mode-map)
(setq vm-mail-buffer mail-buffer))
(local-set-key "\C-c\C-s" 'vm-mail-send)
(local-set-key "\C-c\C-c" 'vm-mail-send-and-exit)
(local-set-key "\C-cy" 'vm-yank-message-other-folder)))
--
ThH, Thorbjoern Hansen, hansen@forwiss.uni-passau.de, thansen@diku.dk
You may write in German, Spanish, Swedish, Danish or even English.
I collect emacs lisp files. Mail me (the name of) your favorite.
Technical Details
Message-ID:
<9304170127.AA04330@garm.diku.dk>Path:
arc1-ca.pugleaf.net!gmd.de!Germany.EU.net!mcsun!uknet!pipex!uunet!wendy-fate.uu.net!bug-vmShow Full Headers
Complete Article Headers
X-Google-Language: ENGLISH,ASCII-7-bit X-Google-Thread: f6829,4abef413f8085acb,start X-Google-Attributes: gidf6829,public X-Google-ArrivalTime: 1993-04-16 18:32:29 PST x-gateway: rodan.UU.NET from bug-vm to gnu.emacs.vm.bug; Fri, 16 Apr 1993 21:28:19 EDT Date: Sat, 17 Apr 1993 03:27:49 +0200 Message-ID: <9304170127.AA04330@garm.diku.dk> From: thansen@diku.dk (Thorbjoern Hansen) Sender: thansen@diku.dk Subject: (unimportant :-) bug in vm-mail? Newsgroups: gnu.emacs.vm.bug Path: arc1-ca.pugleaf.net!gmd.de!Germany.EU.net!mcsun!uknet!pipex!uunet!wendy-fate.uu.net!bug-vm Lines: 39