Re: Gnus sends mail most of the time

[Merciadri Luca]

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.