[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
Re: Gnus sends mail most of the time
From: |
Merciadri Luca |
Subject: |
Re: Gnus sends mail most of the time |
Date: |
Sat, 1 Aug 2009 04:25:02 -0700 (PDT) |
User-agent: |
G2/1.0 |
On Jul 28, 10:20 am, Merciadri Luca <merciadril...@gmail.com> wrote:
> Hello,
>
> I have tried to configure Gnus to be able to send and receive mails
> from various accounts. On one account, I want to be able to sign my
> outgoing mails. For PGP, I have installed MailCrypt. My apps are up-to-
> date.
> However, if I send a mail, it displays two different texts in the
> bottom of the Emacs' window: "Using smtpmail..." then "Using
> smtpmail... done", and "Using mail..." then "Using mail... done".
> Anyway, I do not understand why it seems to use two different
> ``layers'' of Emacs to send such outgoing mails. When displaying
> "Using mail...", it seems to take more time, and my mail is received
> ~1hour after. When displaying "Using smtpmail...", it seems to take
> less time, and my mail is either received instantaneously, or delayed
> of ~30min.
> Also, the mail's sending is sometimes very long (~5min), and ends by
> displaying Groups, as if the mail was sent, but it is actually unsent,
> and no more in Drafts. When the mail's sending is very long, Gnus
> seems to begin it with adding a PGP public key at the end of the mail.
> I can see it, as it is then written in the outgoing message. It is not
> the case when Gnus sends it quickly.
>
> Is it normal? I suppose no. Here are my .emacs my .gnus:
>
> [.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.
> '(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.Mercia...@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)
>
> [/.emacs]
>
> [.gnus]
>
> (setq user-full-name "Merciadri Luca")
> (setq user-mail-address "Luca.Mercia...@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 '((nnmbox "")))
>
> ;(setq gnus-directory "~/.News/")
> ;(setq message-directory "~/.Mail/")
>
> ;(require 'pgg)
>
> ;; 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.Mercia...@student.ulg.ac.be")
> (signature-file "~/Documents/e_mail-sig"))
> ;((message-news-p) ;; for news
> ;(address
> "Luca.Mercia...@student.ulg.ac.be")
> ;(organization "ULg")
> ;(signature-file "~/Documents/
> news-sig"))
> ;(".*swing.*"
> ;(organization "None")
> ;(address "ml...@swing.be")
> ;(signature-file "~/Documents/
> e_mail-sig-swing"))
> ;(".*free.*"
> ;(organization
> "PlantesCarnivores")
> ;(address
> "luca.mercia...@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)
>
> [/.gnus]
>
> Any help would me much appreciated.
It now works 3/4 of the time, using either smtp, or mail. It is
annoying, as, when it does not work, I am not warned about this. I
have to transfer all mails I send to me, to be sure that they have
been correctly received: if I receive my copy, the other person should
have received his copy.
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- Re: Gnus sends mail most of the time,
Merciadri Luca <=