On Jul 28, 10:20 am, Merciadri Luca <[email protected]> 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 > <[email protected]>") > ; 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 "[email protected]") > (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 "[email protected]") > (signature-file "~/Documents/e_mail-sig")) > ;((message-news-p) ;; for news > ;(address > "[email protected]") > ;(organization "ULg") > ;(signature-file "~/Documents/ > news-sig")) > ;(".*swing.*" > ;(organization "None") > ;(address "[email protected]") > ;(signature-file "~/Documents/ > e_mail-sig-swing")) > ;(".*free.*" > ;(organization > "PlantesCarnivores") > ;(address > "[email protected]") > ;(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. _______________________________________________ info-gnus-english mailing list [email protected] http://lists.gnu.org/mailman/listinfo/info-gnus-english
