This file is indexed.

/etc/emacs/site-start.d/65wl.el is in wl 2.15.9+0.20120411-5.

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
97
;;; 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"
	    "--priority" "SECURE:-VERS-SSL3.0"
	    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