Re: Reading mail, okay, but which way through?

[Merciadri Luca]

-----BEGIN PGP SIGNED MESSAGE-----
Hash: SHA1

Byung-Hee HWANG <bh@izb.knu.ac.kr> writes:

> Merciadri Luca <Luca.Merciadri@student.ulg.ac.be> writes:
>
>> Just another question: I receive now ``File error: Cannot open load
>> file, epa-file'' at the Emacs' opening. It seems that there is a
>> problem. However, I followed your links as correctly as I was able to
>> follow them. Actually, I just put the two commands in my .emacs,
>> restarted Emacs, and it showed me this message.
>>
>> Is there a solution?
>
> Because i can't figure out your problem exactly, could you please show
> us your ~/.emacs file or ~/.gnus.el file? If i can't help you, the other
> folks give you some voice for solving your problem. FYI, i'm newbie at
> both Emacs and Gnus. 
>
> Sincerely,
>
> -- 
> "Why don't you check me out with our mutual friend?"
>               -- Tom Hagen, "Chapter 1", page 58

For sure. They are very crippy.

$cat .emacs

(custom-set-variables
  ;; custom-set-variables was added by Custom.
  ;; If you edit it by hand, you could mess it up, so be careful.
  ;; Your init file should contain only one such instance.
  ;; If there is more than one, they won't work right.
 '(canlock-password "428b6edde131188f4d20acba071ac75b44ac7899")
 '(column-number-mode t)
 '(cua-mode t nil (cua-base))
 '(display-battery-mode t)
 '(display-time-mode t)
 '(inhibit-startup-screen t)
 '(show-paren-mode t)
 '(size-indication-mode t)
 '(text-mode-hook (quote (turn-on-auto-fill text-mode-hook-identify)))
 '(transient-mark-mode t))
(custom-set-faces
  ;; custom-set-faces was added by Custom.
  ;; If you edit it by hand, you could mess it up, so be careful.
  ;; Your init file should contain only one such instance.
  ;; If there is more than one, they won't work right.
 )
;; colors:
(set-background-color "lightblue")
(set-foreground-color "slateblue")
(set-cursor-color "brown")
(set-mouse-color "orangered")
 (setq fill-column 20)
 (setq-default auto-fill-function 'do-auto-fill)
;;; Prevent Extraneous Tabs
(setq-default indent-tabs-mode nil)
(setq load-path (cons "~ZEmacs" load-path))
;; ========== Enable Line and Column Numbering ==========
;; Show line-number in the mode line
(line-number-mode 1)
;; Show column-number in the mode line
(column-number-mode 1)


; mailcrypting stuff
(load-library "mailcrypt")
(mc-setversion "gpg")
(autoload 'mc-install-write-mode "mailcrypt" nil t)
(autoload 'mc-install-read-mode "mailcrypt" nil t)
(add-hook 'gnus-summary-mode-hook 'mc-install-read-mode)
(add-hook 'message-mode-hook 'mc-install-write-mode)
;(add-hook 'mail-mode-hook 'mc-install-write-mode)
(add-hook 'news-reply-mode-hook 'mc-install-write-mode)
; If you have more than one key, specify the one to use
(setq mc-gpg-user-id "Merciadri Luca <Luca.Merciadri@student.ulg.ac.be>")
; Always sign encrypted messages
(setq mc-pgp-always-sign t)
; How long should mailcrypt remember your passphrase
(setq mc-passwd-timeout 600)
; Automagically sign all messages
(add-hook 'message-send-hook 'will-you-sign)
(defun will-you-sign ()
        (load-library "mc-toplev")
       (interactive)
        (if (y-or-n-p "Do you want to sign this message? ")
                (mc-sign-message)))
(add-hook 'gnus-summary-mode-hook 'mc-install-read-mode)
(add-hook 'message-mode-hook 'mc-install-write-mode)
(add-hook 'news-reply-mode-hook 'mc-install-write-mode)

;(require 'epa-file)
;(epa-file-enable)

$cat .gnus

(setq user-full-name "Merciadri Luca")
(setq user-mail-address "Luca.Merciadri@student.ulg.ac.be")
(setq nnmail-spool-file "/var/mail/merciadriluca")
(setq display-time-mail-file "/var/mail/merciadriluca")
;(setq message-default charset `utf-8)
(setq nnml-directory "~/Mail/")
(setq gnus-select-method '(nnml ""))
(setq gnus-secondary-select-methods '((nntp "news.sunsite.dk")))
; to find news' servers which have your groups, see
; http://newzbot.com/
; there are too quimby.gnus.org, news.task.gda.pl, news.eutelia.it



;(setq gnus-directory "~/.News/")
;(setq message-directory "~/.Mail/")


;(require 'pgg)

    (setq nntp-authinfo-function 'nntp-send-authinfo)
    (setq gnus-select-method '(nntp "news.sunsite.dk"))
    (setq gnus-message-archive-group "nnml:posted")
;(setq nntp-authinfo-file ".authinfo")
;(setq smtpmail-auth-credentials ".authinfo")




;; Utilisation du backend nnml avec procmail
;; nnmail-procmail-directory correspond à la variable MAILDIR 
;; de votre .procmailrc
(setq
  gnus-secondary-select-methods '((nnml ""))
  gnus-use-procmail t
  nnmail-spool-file "procmail"
  nnmail-procmail-directory "/home/merciadriluca/Mail"
  nnmail-procmail-suffix ""
)

;; Pour les nouvelles versions de Gnus (>= 5.8.7)
;(setq mail-sources
;   (list '(directory
;             :path "~/incoming/"
;             :suffix "" 
;          )
;   )
;)

(setq gnus-posting-styles
      '(
        (".*" ;; default style
         (organization "ULg")
         (address "Luca.Merciadri@student.ulg.ac.be")
         (signature-file "~/Documents/e_mail-sig"))
                                        ;((message-news-p) ;; for news
                                        ;(address 
"Luca.Merciadri@student.ulg.ac.be")
                                        ;(organization "ULg")
                                        ;(signature-file 
"~/Documents/news-sig"))
                                        ;(".*swing.*"
                                        ;(organization "None")
                                        ;(address "mluca@swing.be")
                                        ;(signature-file 
"~/Documents/e_mail-sig-swing"))
                                        ;(".*free.*"
                                        ;(organization "PlantesCarnivores")
                                        ;(address "luca.merciadri@free.fr")
                                        ;(signature-file 
"~/Documents/e_mail-sig-free"))
                                        ;)
        )
      
      )


;; Automcatically sign when sending mails
 ;   (add-hook 'message-send-hook 'mml-secure-message-sign-pgpmime)


;; only sign
    ;(add-hook 'gnus-message-setup-hook 'mml-secure-message-sign-pgpmime)
;;; only encrypt
 ;   (add-hook 'gnus-message-setup-hook 
  ;            (lambda ()
   ;              (mml-secure-message-encrypt-pgpmime 1)))
;


;(setq gnus-check-new-newsgroup nil)

;************************
;; MIME Settings for PGnus
(require 'mm-util)
(defun mm-read-charset (prompt)
  "Return a charset."
  'iso-8859-15)
(setq gnus-default-posting-charset (quote iso-8859-15))
(setq gnus-article-decode-mime-words t)
(setq gnus-article-decode-charset 1)
(setq gnus-mime-view-all-parts t) ; View all the MIME parts in current article
(setq gnus-ignored-mime-types
      '("text/x-vcard"))
(setq gnus-unbuttonized-mime-types nil) ; MIME type -> no buttons when rendered
(setq
 ;; Add buttons
 gnus-treat-buttonize t
 ;; Add buttons to the head
 gnus-treat-buttonize-head 'head
 ;; Emphasize text
 gnus-treat-emphasize t
 ;; Fill the article
 gnus-treat-fill-article nil
 ;; Remove carriage returns
 gnus-treat-strip-cr 'last
 ;; Hide headers
 gnus-treat-hide-headers 'head
 ;; Hide boring headers
 gnus-treat-hide-boring-headers 'head
 ;; Hide the signature
 gnus-treat-hide-signature nil
 ;; Hide cited text
 gnus-treat-hide-citation nil
 ;; Strip PGP signatures
 gnus-treat-strip-pgp 'last
 ;; Strip PEM signatures
 gnus-treat-strip-pem 'last
 ;; Highlight the headers
 gnus-treat-highlight-headers 'head
 ;; Highlight cited text
 gnus-treat-highlight-citation 'last
 ;; Highlight the signature
 gnus-treat-highlight-signature 'last
 ;; Display the Date in UT (GMT)
 gnus-treat-date-ut nil
 ;; Display the Date in the local timezone
 gnus-treat-date-local nil
 ;; Display the date in the original timezone
 gnus-treat-date-original nil
 ;; Strip trailing blank lines
 gnus-treat-strip-trailing-blank-lines 'last
 ;; Strip leading blank lines
 gnus-treat-strip-leading-blank-lines 'last
 ;; Strip multiple blank lines
 gnus-treat-strip-multiple-blank-lines 'last
 ;; Strip all blank lines
 ;; gnus-treat-strip-blank-lines nil
 ;; Treat overstrike highlighting
 gnus-treat-overstrike 'last
 )
;;* show the text/plain part before the text/html part in multpart/alternative
(require 'mm-decode)
;;;-- no way do compile with this
;;;--(push "text/plain" mm-alternative-precedence)
;;;--(setq mm-alternative-precedence "text/plain")

(message "gnus.el: MIME initialized")


(setq smtpmail-default-smtp-server "mail.teledisnet.be")
(setq send-mail-command 'smtpmail-send-it); For mail-mode (Rmail)
(setq message-send-mail-function 'smtpmail-send-it); For message-mode
                                        ; (Gnus)
(setq message-signature 'my-signature)
(setq gnus-signature-separator '("^-- $"))

;(setq gnus-secondary-select-methods '((nnml "private")))


(setq mail-sources
'((file)
(pop :server "mail.ulg.ac.be"
     :user "s083201")
(pop :server "pop.swing.be"
     :user "mluca")
(pop :server "mail.teledisnet.be"
     :user "lme04343")
(pop :server "pop.free.fr"
     :user "luca.merciadri")))

(setq gnus-nntp-server nil
      gnus-read-active-file nil
      gnus-save-newsrc-file nil
      gnus-read-newsrc-file nil
      gnus-check-new-newsgroups nil)

- --

Thanks for your help.


- -- 
Merciadri Luca
See http://www.student.montefiore.ulg.ac.be/~merciadri/
I use PGP. If there is an incompatibility problem with your mail
client, please contact me.
-----BEGIN PGP SIGNATURE-----
Version: GnuPG v1.4.9 (GNU/Linux)
Comment: Processed by Mailcrypt 3.5.8 <http://mailcrypt.sourceforge.net/>

iEYEARECAAYFAkp16OoACgkQM0LLzLt8MhyLCACcDPmHmP4y+ZKe8NcF0/B3wgzI
0kMAoJQxVqfSRqKISJy6luYe7wnYWoda
=i61y
-----END PGP SIGNATURE-----