This file is indexed.

/etc/emacs/site-start.d/65wl-beta.el is in wl-beta 2.15.9+0.20151119-1.

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
 98
 99
100
101
102
103
;;; 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/")
    ;; For gnutls.el:
    ;;(setq gnutls-verify-error t)
    ;;(setq gnutls-algorithm-priority "SECURE:-VERS-SSL3.0")
    ;; For tls.el:
    ;;(setq tls-program '("gnutls-cli --x509cafile /etc/ssl/certs/ca-certificates.crt --priority SECURE:-VERS-SSL3.0 -p %p %h"))
    ;; For ssl.el:
    (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-beta.el ends here