================================================================ Dear Bug Team! If your buffer-file-coding-system defaults to something that isn’t ISO-8859-1 compatible, any non-ASCII characters in your mails will be doubly encoded when FCCs are written to disk. To reproduce this, you could do the following; 1. Start xemacs -vanilla. ;; When the transfer encoding is quoted-printable or Base64, the non-ASCII ;; compatible stuff doesn’t gets hit. 2. M-: (setq vm-mime-8bit-text-transfer-encoding 'binary) RET ;; Make the default value for b-f-c-s non-8859-1 compatible 3. M-: (setq-default buffer-file-coding-system 'iso-8859-7) RET ;; Use a MIME-enabled mail client (which would be the default, in an ;; ideal world. 4. M-x vm-mail RET 5. Add an FCC: header (doesn’t matter whether it will create a new file or not), for example: FCC: /tmp/random-new-file 6. Paste the Greek text from the HELLO file into it. 7. Send the mail. 8. Examine the FCC’ed file--observe that C-u C-x C-f /tmp/random-new-file RET iso-8859-7 RET gives you, for example, Greek (ÅëëçíéêÜ) ÃåéÜ óáò which, when decoded gives the right text: (decode-coding-string "Greek (ÅëëçíéêÜ) ÃåéÜ óáò" 'iso-8859-7) => "Greek (Ελληνικά) Γειά σας" Here’s a fix, to be applied to the sendmail.el of the mail-lib package. --- sendmail.el.orig 2004-11-08 06:16:27.000000000 +0000 +++ sendmail.el 2004-12-28 00:51:03.000000000 +0000 ＠＠ -1225,8 +1225,19 ＠＠ (insert "\n\C-_") (write-region (point-min) (point-max) (car fcc-list) t) (erase-buffer))) - (write-region - (1+ (point-min)) (point-max) (car fcc-list) t))) + + ;; MIME processing should have eliminated any characters + ;; outside the range 0-255; if MIME processing hasn't been + ;; done, there's no reasonable expectation that the data will + ;; be preserved anyway, so we just write tildes for those + ;; chars. We set the coding system for write to 'binary to + ;; prevent any double-encoding that may occur if + ;; buffer-file-coding-system has been initialised to a + ;; non-binary-compatible coding system. + + (let ((coding-system-for-write 'binary)) + (write-region (1+ (point-min)) (point-max) (car fcc-list) t)))) + (and buffer (not dont-write-the-file) (with-current-buffer buffer (set-visited-file-modtime)))) Bye, - Aidan ================================================================ System Info to help track down your bug: --------------------------------------- uname -a: Linux tweety.build.redhat.com 2.4.21-14.ELsmp #1 SMP Wed Apr 14 18:55:47 EDT 2004 i686 i686 i386 GNU/Linux ./configure 'i386-redhat-linux-gnu' '--prefix=/usr' '--exec-prefix=/usr' '--bindir=/usr/bin' '--datadir=/usr/share' '--libdir=/usr/lib' '--mandir=/usr/share/man/man1' '--infodir=/usr/share/info' '--with-gpm=no' '--with-sound=native' '--with-pop' '--mail-locking=lockf' '--with-clash-detection' '--debug=yes' '--with-mule=yes' '--with-database=berkdb' '--with-ldap=yes' '--with-hesiod=no' '--with-canna=yes' '--with-wnn=yes' '--with-xim=xlib' '--with-athena=3d' '--with-widgets=athena' '--with-menubars=lucid' '--with-scrollbars=lucid' '--with-dialogs=athena' '--with-msw=no' '--with-xfs=yes' '--pdump' XEmacs 21.4.13 "Rational FORTRAN" configured for `i386-redhat-linux'. Compilation / Installation: Source code location: /usr/src/build/394749-i386/BUILD/xemacs-21.4.13 Installation prefix: /usr Operating system description file: `s/linux.h' Machine description file: `m/intel386.h' Compiler: gcc -O2 -g -pipe -march=i386 -mcpu=i686 Relocating allocator for buffers: no GNU version of malloc: yes - Using Doug Lea's new malloc from the GNU C Library. Window System: Compiling in support for the X window system: - X Windows headers location: /usr/X11R6/include - X Windows libraries location: /usr/X11R6/lib - Handling WM_COMMAND properly. Compiling in support for the Athena widget set: - Athena headers location: X11/Xaw3d - Athena library to link: Xaw3d Using Lucid menubars. Using Lucid scrollbars. Using Athena dialog boxes. Using Athena native widgets. TTY: Compiling in support for ncurses. Images: Compiling in support for GIF images (builtin). Compiling in support for XPM images. Compiling in support for PNG images. Compiling in support for JPEG images. Compiling in support for TIFF images. Sound: Compiling in support for sound (native). Databases: Compiling in support for Berkeley database. Compiling in support for LDAP. Compiling in support for PostgreSQL. - Using PostgreSQL header file: libpq-fe.h - Using PostgreSQL V7 bindings. Internationalization: Compiling in support for Mule (multi-lingual Emacs). Compiling in support for XIM (X11R5+ I18N input method). - Using raw Xlib to provide XIM support. - Using XFontSet to provide bilingual menubar. Compiling in support for Canna on Mule. Compiling in support for the WNN input method on Mule. Mail: Compiling in support for POP mail retrieval. Compiling in support for "lockf" mail spool file locking method. Other Features: Inhibiting IPv6 canonicalization at startup. Compiling in support for dynamic shared object modules. Using the new portable dumper. Compiling in support for extra debugging code. Load-Path Lisp Shadows: ---------------------- (/home/aidan/emacs-lisp/redo /usr/share/xemacs/xemacs-packages/lisp/edit-utils/redo /home/aidan/emacs-lisp/vm-mime /usr/share/xemacs/xemacs-packages/lisp/vm/vm-mime /usr/share/xemacs/xemacs-packages/lisp/apel/timezone /usr/share/xemacs/xemacs-packages/lisp/xemacs-base/timezone /usr/share/xemacs/xemacs-packages/lisp/build/build-report /usr/share/xemacs-21.4.13/lisp/build-report /usr/share/xemacs/xemacs-packages/lisp/apel/alist /usr/share/xemacs-21.4.13/lisp/alist) Installed XEmacs Packages: ------------------------- ((zenirc:version 1.13 :type regular) (xslt-process :version 1.11 :type regular) (xslide :version 1.08 :type regular) (xemacs-devel :version 1.58 :type single-file) (xemacs-base :version 1.78 :type regular) (w3 :version 1.28 :type regular) (vm :version 7.14 :type regular) (viper :version 1.36 :type regular) (view-process :version 1.12 :type regular) (vhdl :version 1.17 :type regular) (vc-cc :version 1.21 :type regular) (vc :version 1.37 :type regular) (tramp :version 1.16 :type regular) (tpu :version 1.12 :type regular) (tooltalk :version 1.13 :type regular) (tm :version 1.36 :type regular) (time :version 1.13 :type regular) (textools :version 1.14 :type regular) (text-modes :version 1.63 :type single-file) (texinfo :version 1.24 :type regular) (supercite :version 1.19 :type regular) (strokes :version 1.08 :type regular) (speedbar :version 1.26 :type regular) (sounds-wav :version 1.1 :type regular) (sounds-au :version 1.1 :type regular) (sml-mode :version 0.09 :type regular) (slider :version 1.13 :type regular) (sieve :version 1.13 :type regular) (sh-script :version 1.17 :type regular) (sgml :version 1.08 :type regular) (semantic :version 1.17 :type regular) (scheme :version 1.13 :type regular) (sasl :version 1.13 :type regular) (ruby-modes :version 1.01 :type regular) (rmail :version 1.13 :type regular) (reftex :version 1.3 :type regular) (python-modes :version 1.02 :type single-file) (psgml-dtds :version 1.02 :type regular) (psgml :version 1.41 :type regular) (ps-print :version 1.08 :type regular) (prog-modes :version 1 .83 :type single-file) (pgg :version 1.03 :type regular) (perl-modes :version 1.04 :type single-file) (pcomplete :version 1.02 :type regular) (pcl-cvs :version 1.64 :type regular) (pc :version 1.25 :type single-file) (os-utils :version 1.32 :type single-file) (oo-browser :version 1.03 :type regular) (ocaml :version 0.04 :type regular) (net-utils :version 1.32 :type single-file) (mmm-mode :version 1.0 :type regular) (misc-games :version 1.16 :type single-file) (mine :version 1.14 :type regular) (mh-e :version 1.23 :type regular) (mew :version 1.17 :type regular) (mailcrypt :version 2.12 :type regular) (mail-lib :version 1.6 :type regular) (liece :version 1.12 :type regular) (jde :version 1.45 :type regular) (ispell :version 1.24 :type regular) (ilisp :version 1.32 :type regular) (igrep :version 1.1 :type regular) (idlwave :version 1.3 :type regular) (ibuffer :version 1.08 :type regular) (hyperbole :version 1.12 :type regular) (hm--html-menus :version 1.21 :type regular) (haskell-mode :version 1.05 :type regular) (gnus :version 1.71 :type regular) (gnats :version 1.15 :type regular) (games :version 1.14 :type regular) (fsf-compat :version 1.12 :type single-file) (frame-icon :version 1.09 :type regular) (fortran-modes :version 1.02 :type single-file) (forms :version 1.14 :type regular) (footnote :version 1.15 :type regular) (eudc :version 1.38 :type regular) (eterm :version 1.13 :type regular) (ess :version 1.04 :type regular) (eshell :version 1.05 :type regular) (emerge :version 1.09 :type regular) (elib :version 1.1 :type single-file) (eieio :version 1.04 :type regular) (efs :version 1.29 :type regular) (edt :version 1.12 :type regular) (edit-utils :version 2.07 :type single-file) (ediff :version 1.47 :type regular) (edebug :version 1.18 :type regular) (ecrypto :version 0.13 :type regular) (ecb :version 1.1 :type regular) (docbookide :version 0.06 :type regular) (dired :version 1.13 :type regular) (dictionary :version 1.12 :type regular) (debug :version 1.16 :type regular) (crisp :version 1.12 :type regular) (cookie :version 1.14 :type regular) (clearcase :version 1.06 :type regular) (cc-mode :version 1.39 :type regular) (calendar :version 1.21 :type regular) (calc :version 1.23 :type regular) (c-support :version 1.16 :type single-file) (build :version 1.1 :type regular) (bbdb :version 1.23 :type regular) (auctex :version 1.35 :type regular) (ada :version 1.13 :type regular) (skk :version 1.23 :type regular) (mule-ucs :version 1.04 :type regular) (mule-base :version 1.43 :type regular) (lookup :version 1.13 :type regular) (locale :version 1.2 :type regular) (leim :version 1.21 :type regular) (latin-unity :version 1.07 :type regular) (egg-its :version 1.26 :type regular) (edict :version 1.15 :type regular)) Installed Modules: ----------------- Features: -------- (xemacsbug shadow vm-digest atomic-extents cal-move cal-xemacs calendar tags etags rect w3-style binhex executable gnus-fun ethio-util w3-hot url-file url-cache w3-xemac w3-xemacs w3-toolbar xbm-button xpm-button w3-forms images url-http url-cookie urlauth w3 w3-menu url-news url-gw w3-script w3-jscript w3-elisp w3-java cus-edit cus-load w3-emulate w3-parse url mm w3-display w3-mouse w3-imap w3-widget w3-vars w3-keyword w3-cus url-parse url-vars css font mule-sysdp w3-cfg w3-sysdp iso-acc macros compile gnus-topic gnus-draft cookie1 vm-reply ispell tex vm-delete view-less view hyper-apropos vm-sort vm-virtual sha1-el hex-util flow-fill sort gnus-cite smiley annotations gnus-async gnus-bcklg byte-optimize bytecomp byte-compile gnus-ml passwd nndraft nnmh gnus-agent gnus-srvr gnus-score score-mode nnvirtual gnus-msg gnus-art mm-uu mml2015 pgg pgg-parse pgg-def mm-view gnus-sum gnus-group gnus-undo nntp nnoo nnmail mail-source format-spec gnus-cache gnus-start gnus-spec gnus-int gnus-range gnus-win gnus gnus-ems gnus-xmas wid-edit zenirc mspools vm-page vm-mime latin-unity-tables latin-unity-utils latin-unity-latin10 latin-unity-vars latin-unity vm-save vm-toolbar vm-summary tapestry vm-motion vm-message vm-menu vm-folder efs-cu vm-undo vm-minibuf vm-macro vm-misc vm-mouse vm-window vm-autoload vm-vars highlight-headers vm-version vm scroll-in-place redo desktop blink-paren recent-files savehist alist after-save-commands env message messagexmas mml mml-sec mml-smime smime dig mm-decode mm-bodies mm-encode mailcap lpr mail-parse rfc2045 rfc2231 rfc2047 qp ietf-drums mail-abbrevs sendmail mailheader canlock nnheader nnheaderxm gnus-util netrc time-date parse-time mm-util mail-prsvr mail-utils mail-extr timezone pym static apel-ver product mailcrypt rfc822 comint ring mmm advice advice-preload tex-site vm-startup lazy-shot font-lock time cus-face disp-table w3-auto unidata unicode mule-ucs-unicode un-data mucs mucs-ccl mucs-type mucs-error txt-tbl trans-util un-define mule-uni latin-unity-latin9 latin-unity-latin8 latin-unity-latin7 gnuserv zenirc-autoloads xslt-process-autoloads xslide-autoloads xemacs-devel-autoloads xemacs-base-autoloads w3-autoloads vm-autoloads viper-autoloads view-process-autoloads vhdl-autoloads vc-cc-autoloads vc-autoloads tramp-autoloads tpu-autoloads tooltalk-autoloads tm-autoloads time-autoloads textools-autoloads text-modes-autoloads texinfo-autoloads supercite-autoloads strokes-autoloads speedbar-autoloads sounds-wav-autoloads sounds-au-autoloads sml-mode-autoloads slider-autoloads sieve-autoloads sh-script-autoloads sgml-autoloads semantic-autoloads scheme-autoloads sasl-autoloads ruby-modes-autoloads rmail-autoloads reftex-autoloads python-modes-autoloads psgml-dtds-autoloads psgml-autoloads ps-print-autoloads prog-modes-autoloads pgg-autoloads perl-modes-autoloads pcomplete-autoloads pcl-cvs-autoloads pc-autoloads os-utils-autoloads oo-browser-autoloads ocaml-autoloads net-utils-autoloads mmm-mode-autoloads misc-games-autoloads mine-autoloads mh-e-autoloads mew-autoloads mailcrypt-autoloads mail-lib-autoloads liece-autoloads jde-autoloads ispell-autoloads ilisp-autoloads igrep-autoloads idlwave-autoloads ibuffer-autoloads hyperbole-autoloads hm--html-menus-autoloads haskell-mode-autoloads gnus-autoloads gnats-autoloads games-autoloads fsf-compat-autoloads frame-icon-autoloads fortran-modes-autoloads forms-autoloads footnote-autoloads eudc-autoloads eterm-autoloads ess-autoloads eshell-autoloads emerge-autoloads elib-autoloads eieio-autoloads efs-autoloads edt-autoloads edit-utils-autoloads ediff-autoloads edebug-autoloads ecrypto-autoloads ecb-autoloads docbookide-autoloads dired-autoloads dictionary-autoloads debug-autoloads crisp-autoloads cookie-autoloads clearcase-autoloads cc-mode-autoloads calendar-autoloads calc-autoloads c-support-autoloads build-autoloads bbdb-autoloads auctex-autoloads apel-autoloads ada-autoloads skk-autoloads mule-ucs-autoloads mule-base-autoloads lookup-autoloads locale-autoloads leim-autoloads latin-unity-autoloads egg-its-autoloads edict-autoloads lisp-autoloads 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 postgresqlv7 postgresql CANNA file-coding wnn 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 menu-accelerator-support menubar berkeley-db md5 xemacs xim gutter tiff png gif jpeg xpm xbm lisp-float-type linux dialog devices window-system base64) Recent keystrokes: ----------------- x h e l p RET l C-n C-n C-n C-v C-v C-v C-x o ESC > C-p RET SPC S q C-x C-p C-n C-n C-n C-n C-n C-n C-n C-n C-e BS ) LFD C-p ESC x a d SPC r e m o v e SPC TAB RET RET RET RET C-z C-x C-r d e f a d v i c e C-a C-n C-n C-n C-n C-z C-x m C-x k RET ESC x r e p o r t SPC x e m a c s SPC b u g f RET BS RET Recent messages (most recent first): ----------------------------------- Loading xemacsbug...done Loading xemacsbug... 12:50am Mail 12:49am Mail 12:49am Mail 12:49am Mail Quit 12:48am Mail 12:48am Mail 12:48am Mail 12:47am Mail 12:47am Mail 12:47am Mail 12:46am Mail 12:46am 0.01 Mail 12:46am 0.01 Mail 12:45am 0.02 Mail 12:45am 0.02 Mail 12:45am 0.04 Mail 12:44am 0.05 Mail -- “Ah come on now Ted, a Volkswagen with a mind of its own, driving all over the place and going mad, if that’s not scary I don’t know what is.”