/etc/emacs/site-start.d/65wl.el is in wl 2.14.0-12.
This file is owned by root:root, with mode 0o644.
The actual contents of the file can be viewed below.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 | ;;; 65wl.el --- Debian wl startup file -*-mode: emacs-lisp;-*-
(let* ((pkg "wl")
(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.el ends here
|