Package: wl-beta
Version: 2.15.9+0.20110420-1
Severity: normal

Dear Maintainer,
More and more people are sending me email where To:,
Subject: and From: headers are RFC2047-encoded UTF-8 strings.  

Wanderlust does not decode these, so I see, e.g., 
To: "=?utf-8?B?UGV0ZXIgQ2h1YmI=?=" <my.email.address>
instead of something sensible.

These are not, strictly-speaking, RFC2047 compliant: the encoded string 
is surrounded by quotation marks.  But given that I'm seeing more and more of 
these, is there any way to turn on decoding?

*** End of the template - remove these lines ***


-- System Information:
Debian Release: wheezy/sid
  APT prefers oldstable
  APT policy: (500, 'oldstable'), (500, 'unstable'), (500, 'testing'), (500, 
'stable')
Architecture: i386 (i686)

Kernel: Linux 3.1.0-08781-gd211858-dirty (SMP w/2 CPU cores; PREEMPT)
Locale: LANG=en_AU.utf8, LC_CTYPE=en_AU.utf8 (charmap=UTF-8) (ignored: LC_ALL 
set to en_AU.utf8)
Shell: /bin/sh linked to /bin/bash

Versions of packages wl-beta depends on:
ii  apel                     10.8-2               
ii  dpkg                     1.16.1.1             
ii  emacs [emacsen]          23.3+1-4             
ii  emacs23-lucid [emacsen]  23.3+1-4             
ii  flim                     1:1.14.9+0.20110516-1
ii  install-info             4.13a.dfsg.1-8       
ii  semi                     1.14.6+0.20101114-1  

wl-beta recommends no packages.

Versions of packages wl-beta suggests:
pn  bbdb                                  2.36-2              
pn  bitmap-mule                           <none>              
pn  bogofilter | bsfilter | spamassassin  <none>              
pn  easypg                                0.0.16-2.1          
pn  gnupg                                 1.4.11-3            
pn  gnutls-bin                            2.12.12-1           
pn  im                                    <none>              
pn  mhc                                   <none>              
pn  mu-cite                               <none>              
pn  mule-ucs                              <none>              
pn  namazu2                               <none>              
pn  openssl                               1.0.0e-2            
pn  starttls                              <none>              
pn  w3m-el-snapshot [w3m-el]              1.4.442+0.20110729-1
pn  x-face-el                             <none>              

-- Configuration Files:
/etc/emacs/site-start.d/65wl-beta.el changed:
;;; 65wl-beta.el --- Debian wl-beta startup file  -*-mode: emacs-lisp;-*-
(let* ((pkg "wl-beta")
       (pkg-sname "wl")
       (flavor-name (if (boundp 'debian-emacs-flavor)
                        (symbol-name debian-emacs-flavor)
                      "emacs"))
       (pkg-inst (concat "/usr/lib/emacsen-common/packages/install/" pkg))
       (elc-dir (concat "/usr/share/" flavor-name "/site-lisp/" pkg-sname)))
  (when (and (file-exists-p elc-dir)
             (file-exists-p pkg-inst))
    (when (and (not (featurep 'mule))
               (file-exists-p (concat elc-dir "/nomule")))
      (setq elc-dir (concat elc-dir "/nomule")))
    (if (fboundp 'debian-pkg-add-load-path-item)
        (debian-pkg-add-load-path-item elc-dir)
      (setq load-path (cons elc-dir load-path)))
    ;;
    (autoload 'wl-user-agent-compose "wl-draft" nil t)
    (if (fboundp 'define-mail-user-agent)
        (define-mail-user-agent
          'wl-user-agent
          'wl-user-agent-compose
          'wl-draft-send
          'wl-draft-kill
          'mail-send-hook))
    (autoload 'wl "wl" "Wanderlust" t)
    (autoload 'wl-other-frame "wl" "Wanderlust on new frame." t)
    (autoload 'wl-draft "wl" "Write draft with Wanderlust." t)
    (setq wl-icon-directory "/usr/share/pixmaps/wl/")
    (setq ssl-certificate-directory "/etc/ssl/certs")
    ;;(setq ssl-program-name "gnutls-cli")
    ;;(setq ssl-program-arguments
          ;;'("--port" service
            ;;"--x509cafile" "/etc/ssl/certs/ca-certificates.crt"
            ;;host))
    (setq ssl-program-name "openssl")
    (setq ssl-program-arguments
          '("s_client" "-quiet" "-host" host "-port" service
            "-verify" (int-to-string ssl-certificate-verification-policy)
            "-CApath" ssl-certificate-directory))
    (setq wl-auto-save-drafts-interval nil)
    (setq elmo-archive-tar-method-alist
          '((ls    . ("tar" "-tf"))
            (cat   . ("tar" "-Oxf"))
            (ext   . ("tar" "-xf"))
            ;;(rm    . ("tar" "--delete" "-f")) ;; well not work
            ))
    (setq elmo-archive-tgz-method-alist
          '((ls         . ("tar" "-ztf"))
            (cat        . ("tar" "-Ozxf"))
            (create     . ("tar" "-zcf"))
            ;;(rm         . elmo-archive-tgz-rm-func)
            (cp         . elmo-archive-tgz-cp-func)
            (mv         . elmo-archive-tgz-mv-func)
            (ext        . ("tar" "-zxf"))
            ;; tgz special method
            (decompress . ("gzip" "-d"))
            (compress   . ("gzip"))
            (append     . ("tar" "-uf"))
            ;;(delete     . ("tar" "--delete" "-f")) ;; well not work
            ))
    (if (and (featurep 'xemacs)
             (fboundp 'user-mail-address)
             (boundp 'user-mail-address)
             (not user-mail-address)
             (boundp 'query-user-mail-address)
             (not query-user-mail-address))
        (user-mail-address))
    (if (not (and (boundp 'user-mail-address)
                  (> (length user-mail-address) 0)))
        (setq wl-from
              (concat
               (if (and (boundp 'user-full-name)
                        (> (length user-full-name) 0))
                   (concat user-full-name " <"))
               (if (and (boundp 'user-login-name)
                        (> (length user-login-name) 0))
                   user-login-name
                 (if (fboundp 'user-login-name)
                     (user-login-name)
                   ""))
               "@"
               (if (and (boundp 'mail-host-address)
                        (> (length mail-host-address) 0))
                   mail-host-address
                 (if (fboundp 'system-name)
                     (system-name)
                   "localhost"))
               (if (and (boundp 'user-full-name)
                        (> (length user-full-name) 0))
                   ">"))))
    ;;
    ))
;;; 65wl-beta.el ends here


-- no debconf information



-- 
To UNSUBSCRIBE, email to debian-bugs-dist-requ...@lists.debian.org
with a subject of "unsubscribe". Trouble? Contact listmas...@lists.debian.org

Reply via email to