[Top][All Lists]

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

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

From: Merciadri Luca
Subject: Re: Reading mail, okay, but which way through?
Date: Sun, 02 Aug 2009 21:28:43 +0200
User-agent: Gnus/5.11 (Gnus v5.11) Emacs/22.2 (gnu/linux)

Hash: SHA1

Byung-Hee HWANG <> writes:

> Merciadri Luca <> 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 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 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 <>")
; 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")
        (if (y-or-n-p "Do you want to sign this 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)

$cat .gnus

(setq user-full-name "Merciadri Luca")
(setq user-mail-address "")
(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 "")))
; to find news' servers which have your groups, see
; there are too,,

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

;(require 'pgg)

    (setq nntp-authinfo-function 'nntp-send-authinfo)
    (setq gnus-select-method '(nntp ""))
    (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
  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 "")
         (signature-file "~/Documents/e_mail-sig"))
                                        ;((message-news-p) ;; for news
                                        ;(organization "ULg")
                                        ;(organization "None")
                                        ;(address "")
                                        ;(organization "PlantesCarnivores")
                                        ;(address "")

;; 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."
(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
(setq gnus-unbuttonized-mime-types nil) ; MIME type -> no buttons when rendered
 ;; 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 "")
(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
(pop :server ""
     :user "s083201")
(pop :server ""
     :user "mluca")
(pop :server ""
     :user "lme04343")
(pop :server ""
     :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
I use PGP. If there is an incompatibility problem with your mail
client, please contact me.
Version: GnuPG v1.4.9 (GNU/Linux)
Comment: Processed by Mailcrypt 3.5.8 <>


reply via email to

[Prev in Thread] Current Thread [Next in Thread]