I've got this correspondent who I don't dare tell to get a real MUA (he's my boss), so I whipped this little function up: (defun sjt/fix-takagi () (interactive) (save-excursion (let ((vm-frame-per-edit nil)) (vm-edit-message)) (goto-char (point-min)) (search-forward "\nFrom: ") (beginning-of-line) (insert "MIME-Version: 1.0") (insert "Content-Type: text/plain; charset=ISO-2022-JP\n") (goto-char (point-min)) (while (search-forward "\033$＠" nil t) (replace-match "\033$B" nil t)) (goto-char (point-min)) (while (search-forward "\033(J" nil t) (replace-match "\033(B" nil t)) (vm-edit-message-end))) I execute it using M-x sjt/fix-takagi RET, in a VM frame containing a Summary window at top, a Presentation window, and a BBDB window at bottom. Point is on Takagi's most recent message in the Summary window. Somehow after the function is executed, point ends up in the BBDB window. Also sometimes it closes the Presentation window, and sometimes it doesn't. (I'm not sure what determines when this happens.) Either way, point is always left in the BBDB window. P.S. Kyle doesn't want anybody to know about this function. Policy is to yell at correspondents, not to knuckle under. So don't tell anyone. ;-) Emacs : XEmacs 21.2 (beta45) "Thelxepeia" [Lucid] (i586-pc-linux, Mule) of Mon Apr 2 2001 on turnbull Package: VM 6.88 current state: ============== (setq vm-arrived-message-hook nil vm-arrived-messages-hook nil vm-auto-center-summary nil vm-auto-decode-mime-messages t vm-auto-displayed-mime-content-type-exceptions '("text/html") vm-auto-displayed-mime-content-types '("text" "multipart") vm-auto-folder-case-fold-search t vm-auto-get-new-mail t vm-auto-next-message t vm-berkeley-mail-compatibility nil vm-check-folder-types t vm-circular-folders nil vm-confirm-new-folders t vm-confirm-quit 0 vm-convert-folder-types t vm-crash-box "~/.crash.INBOX" vm-crash-box-suffix nil vm-default-From_-folder-type 'From_ vm-default-folder-type 'From_ vm-delete-after-archiving nil vm-delete-after-bursting nil vm-delete-after-saving nil vm-delete-empty-folders t vm-digest-burst-type "guess" vm-digest-identifier-header-format "X-Digest: %s\n" vm-digest-center-preamble t vm-digest-preamble-format "\"%s\" (%F)" vm-digest-send-type "mime" vm-display-buffer-hook nil vm-display-using-mime t vm-edit-message-hook nil vm-edit-message-mode 'text-mode vm-fill-paragraphs-containing-long-lines nil vm-flush-interval 90 vm-folder-directory "~/VM/" vm-folder-read-only nil vm-folders-summary-database "~/.vm.folders.db" vm-folders-summary-directories '("~/") vm-folders-summary-format " %12f %4t total, %n new, %u unread, %s spooled\n" vm-follow-summary-cursor t vm-forward-message-hook nil vm-forwarded-headers nil vm-forwarding-digest-type "mime" vm-forwarding-subject-format "forwarded message from %F" vm-frame-parameter-alist '((folder (height 40 width 90))) vm-frame-per-completion t vm-frame-per-composition t vm-frame-per-edit t vm-frame-per-folder t vm-frame-per-folders-summary nil vm-frame-per-help nil vm-frame-per-summary nil vm-highlight-url-face 'bold-italic vm-highlighted-header-regexp nil vm-honor-page-delimiters nil vm-image-directory "/playpen/gnu/plat/lib/xemacs/xemacs-packages/etc/vm/" vm-imap-bytes-per-session nil vm-imap-expunge-after-retrieving t vm-imap-max-message-size nil vm-imap-messages-per-session nil vm-imap-session-preauth-hook nil vm-in-reply-to-format "%i" vm-included-text-attribution-format "%F writes:\n" vm-included-text-discard-header-regexp nil vm-included-text-headers nil vm-included-text-prefix " > " vm-index-file-suffix nil vm-init-file "~/.vm" vm-infer-mime-types nil vm-invisible-header-regexp nil vm-jump-to-new-messages t vm-jump-to-unread-messages t vm-keep-crash-boxes nil vm-keep-sent-messages 1 vm-lynx-program "lynx" vm-mail-header-from nil vm-mail-header-insert-date t vm-mail-header-insert-message-id t vm-mail-hook nil vm-make-crash-box-name nil vm-make-spool-file-name nil vm-mail-check-interval 300 vm-mail-mode-hook nil vm-mail-send-hook nil vm-mime-7bit-composition-charset "us-ascii" vm-mime-8bit-composition-charset "iso-8859-1" vm-mime-8bit-text-transfer-encoding 'quoted-printable vm-mime-alternative-select-method 'best-internal vm-mime-attachment-auto-type-alist '(("\\.jpe?g$" . "image/jpeg") ("\\.gif$" . "image/gif") ("\\.png$" . "image/png") ("\\.tiff?$" . "image/tiff") ("\\.html?$" . "text/html") ("\\.au$" . "audio/basic") ("\\.mpe?g$" . "video/mpeg") ("\\.ps$" . "application/postscript")) vm-mime-attachment-save-directory nil vm-mime-avoid-folding-content-type t vm-mime-base64-decoder-program nil vm-mime-base64-decoder-switches nil vm-mime-base64-encoder-program nil vm-mime-base64-encoder-switches nil vm-mime-button-face 'gui-button-face vm-mime-button-format-alist '(("text" . "%-35.35(%d, %c%) [%k to %a]") ("multipart/alternative" . "%-35.35(%d%) [%k to %a]") ("multipart/digest" . "%-35.35(%d, %n message%s%) [%k to %a]") ("multipart" . "%-35.35(%d, %n part%s%) [%k to %a]") ("message/partial" . "%-35.35(%d, part %N (of %T)%) [%k to %a]") ("message/external-body" . "%-35.35(%d%) [%k to %a (%x)]") ("message" . "%-35.35(%d%) [%k to %a]") ("audio" . "%-35.35(%d%) [%k to %a]") ("video" . "%-35.35(%d%) [%k to %a]") ("image" . "%-35.35(%d%) [%k to %a]") ("application/octet-stream" . "%-35.35(%d, %f%) [%k to %a]") ) vm-mime-charset-font-alist nil vm-mime-confirm-delete t vm-mime-decode-for-preview t vm-mime-default-face-charset-exceptions nil vm-mime-default-face-charsets '("us-ascii" "iso-8859-1") vm-mime-delete-after-saving nil vm-mime-delete-viewer-processes t vm-mime-digest-discard-header-regexp nil vm-mime-digest-headers '("Resent-" "From:" "Sender:" "To:" "Cc:" "Subject:" "Date:" "Message-ID:" "Keywords:" "MIME-Version:" "Content-") vm-mime-display-function nil vm-mime-external-content-types-alist '(("video" "xanim") ("audio/x-pn-realaudio" "/playpen/proprietary/rvplayer5.0/rvplayer") ) vm-mime-ignore-mime-version t vm-mime-internal-content-type-exceptions '("text/html") vm-mime-internal-content-types t vm-mime-max-message-size nil vm-mime-qp-decoder-program nil vm-mime-qp-decoder-switches nil vm-mime-qp-encoder-program nil vm-mime-qp-encoder-switches nil vm-mime-type-converter-alist nil vm-mime-uuencode-decoder-program "uudecode" vm-mime-uuencode-decoder-switches nil vm-mode-hook nil vm-mode-hooks nil vm-mosaic-program "Mosaic" vm-mosaic-program-switches nil vm-move-after-deleting t vm-move-after-undeleting nil vm-move-after-killing nil vm-move-messages-physically nil vm-movemail-program "movemail" vm-mutable-frames t vm-mutable-windows t vm-netscape-program "netscape" vm-netscape-program-switches nil vm-page-continuation-glyph "...press SPACE to see more..." vm-paragraph-fill-column 70 vm-pop-bytes-per-session nil vm-pop-expunge-after-retrieving t vm-pop-max-message-size nil vm-pop-messages-per-session nil vm-pop-md5-program "md5" vm-popup-menu-on-mouse-3 t vm-preferences-file "~/.vm.preferences" vm-preview-lines nil vm-preview-read-messages nil vm-primary-inbox "~/VM/INBOX" vm-quit-hook '(vm-expunge-folder) vm-recognize-imap-maildrops "^imap:[^:]+:[^:]+:[^:]+:[^:]+:[^:]+:[^:]+" vm-recognize-pop-maildrops "^[^:]+:[^:]+:[^:]+:[^:]+:[^:]+" vm-reply-hook nil vm-reply-ignored-reply-tos '("tlug\\|taira") vm-reply-subject-prefix nil vm-resend-bounced-discard-header-regexp nil vm-resend-bounced-headers '("MIME-Version:" "Content-" "From:" "Sender:" "Reply-To:" "To:" "Cc:" "Subject:" "Newsgroups:" "In-Reply-To:" "References:" "Keywords:" "X-") vm-resend-bounced-message-hook nil vm-resend-discard-header-regexp "\\(\\(X400-\\)?Received:\\|Resent-\\)" vm-resend-headers nil vm-resend-message-hook nil vm-retrieved-spooled-mail-hook nil vm-rfc1153-digest-discard-header-regexp "\\(X400-\\)?Received:" vm-rfc1153-digest-headers '("Resent-" "Date:" "From:" "Sender:" "To:" "Cc:" "Subject:" "Message-ID:" "Keywords:") vm-rfc934-digest-discard-header-regexp nil vm-rfc934-digest-headers '("Resent-" "From:" "Sender:" "To:" "Cc:" "Subject:" "Date:" "Message-ID:" "Keywords:") vm-search-using-regexps nil vm-select-message-hook '(bbdb/vm-update-record sjt-vm-clean-tlug-subjects-function) vm-select-new-message-hook nil vm-select-unread-message-hook nil vm-send-digest-hook nil vm-send-using-mime t vm-skip-deleted-messages t vm-skip-read-messages nil vm-spool-file-suffixes nil vm-spooled-mail-waiting-hook nil vm-startup-with-summary t vm-strip-reply-headers nil vm-subject-significant-chars nil vm-summary-format "%n %*%a %-17.17F %-3.3m %2d %4l/%-5c %I\"%s\"\n" vm-summary-highlight-face 'bold vm-summary-mode-hook nil vm-summary-mode-hooks nil vm-summary-redo-hook nil vm-summary-show-threads nil vm-summary-thread-indent-level 2 vm-summary-uninteresting-senders nil vm-summary-uninteresting-senders-arrow "To: " vm-tale-is-an-idiot t vm-temp-file-directory "/tmp" vm-thread-using-subject t vm-toolbar-pixmap-directory "/playpen/gnu/plat/lib/xemacs/xemacs-packages/etc/vm/" vm-trust-From_-with-Content-Length nil vm-undisplay-buffer-hook nil vm-unforwarded-header-regexp "only-drop-this-header" vm-url-browser 'w3-fetch-other-frame vm-url-retrieval-methods '(lynx wget url-w3) vm-url-search-limit 12000 vm-use-menus '(folder motion send mark label sort virtual undo dispose emacs nil help) vm-use-toolbar '(next previous delete/undelete autofile file reply compose print visit quit nil help) vm-virtual-folder-alist nil vm-virtual-mirror t vm-visible-headers '("From:" "Sender:" "To:" "Apparently-To:" "Cc:" "Message-ID:" "Subject:" "Date:" "X-TLUG-serial:" "X-Mailer:") vm-visit-folder-hook nil vm-visit-when-saving 0 vm-warp-mouse-to-new-frame nil vm-wget-program "wget" vm-window-configuration-file "~/.vm.windows" features '(reporter emacsbug vm-edit leim-canna-initialized canna poem poem-xm pces pces-xfc pces-20 broken pces-xm poe-xemacs timer overlay poe pym static apel-ver product efs-dired efs-x19\.15 efs-fnh efs-ovwrt efs-netrc efs-defun efs edmacro passwd shell comint ring rfc822 vm-thread vm-mark facemenu enriched mail-abbrevs sendmail vm-reply vm-sort vm-delete vm-minibuf vm-macro vm-virtual font disp-table highlight-headers vm-mime bbdb-xemacs bbdb-com bbdb-hooks vm-page vm-save vm-toolbar vm-summary tapestry vm-motion vm-undo vm-message vm-menu vm-folder vm-misc vm-mouse vm-window bbdb-vm vm-autoload vm-vars vm-version vm vm-startup env dired-faces dired-xemacs dired info psgml-xemacs sgml-mode psgml cc-mode cc-cmds cc-align cc-engine cc-langs cc-styles cc-vars cc-menus imenu cc-defs efs-cu desktop gnuserv font-lock filladapt bbdb-w3 bbdb-sc supercite regi bbdb-reportmail advice advice-preload reportmail mail-extr bbdb-gnus gnus gnus-ems gnus-xmas wid-edit gnus-util message messagexmas cus-face mml mm-decode mm-encode mailcap mm-bodies uudecode mail-parse rfc2045 rfc2047 qp rfc2231 ietf-drums time-date parse-time nnheader nnheaderxm mail-utils mailheader mm-util mail-prsvr bbdb t timezone footnote tex-site dotxemacs-init xemacs-devel-autoloads xemacs-base-autoloads w3-autoloads vm-autoloads view-process-autoloads vc-autoloads tm-autoloads time-autoloads textools-autoloads text-modes-autoloads texinfo-autoloads supercite-autoloads strokes-autoloads speedbar-autoloads slider-autoloads skk-autoloads sh-script-autoloads reftex-autoloads psgml-autoloads prog-modes-autoloads pcl-cvs-autoloads pc-autoloads os-utils-autoloads net-utils-autoloads mule-base-autoloads misc-games-autoloads mine-autoloads mailcrypt-autoloads mail-lib-autoloads leim-autoloads ispell-autoloads igrep-autoloads hm--html-menus-autoloads gnus-autoloads gnuplot-mode-autoloads gnats-autoloads games-autoloads fsf-compat-autoloads frame-icon-autoloads forms-autoloads footnote-autoloads eudc-autoloads eterm-autoloads egg-its-autoloads efs-autoloads edit-utils-autoloads ediff-autoloads edict-autoloads edebug-autoloads dired-autoloads crisp-autoloads cookie-autoloads cc-mode-autoloads calendar-autoloads calc-autoloads c-support-autoloads bbdb-autoloads auctex-autoloads apel-autoloads lisp-autoloads vc-hooks efs-dump loadhist auto-show fontl-hooks x-iso8859-1 canna-leim slovenian czech romanian ccl mule-help code-cmds gutter-items menubar-items x-menubar mode-motion mouse itimer auto-save lisp-mode easymenu iso8859-1 page buff-menu lib-complete cus-file derived frame text-props obsolete cus-start custom widget cl-extra mini-cl cl cl-19 packages backquote very-early-lisp CANNA file-coding mule lucid-scrollbars cut-buffer lucid-menubars athena-dialogs x c-balloon-help tty-frames tty toolbar native-sound scrollbar unix-processes multicast network-streams subprocesses modules menubar berkeley-db md5 xemacs xim gutter tiff png gif jpeg xface xpm xbm lisp-float-type linux dialog devices window-system base64) ) -- University of Tsukuba Tennodai 1-1-1 Tsukuba 305-8573 JAPAN Institute of Policy and Planning Sciences Tel/fax: +81 (298) 53-5091 _________________ _________________ _________________ _________________ What are those straight lines for? "XEmacs rules."