help-guix
[Top][All Lists]
Advanced

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

Re: Right way: define, build and install


From: Jone
Subject: Re: Right way: define, build and install
Date: Wed, 02 May 2018 19:52:41 +0000

My config:

;;; POP3
(defvar email-pswd-tmp nil)
(defun rmail-start ()
  "Get mail through pop3 and view mail; default Gmail."
  (interactive)
  (let ((username "yeger9:")  ;; c ":" в конце!
                (inbox "~/.Mail/rmail-inbox")
                (mail-archive-file-name "~/.Mail/rmail-sent"))
  (if (equal email-pswd-tmp nil)
          (setq email-pswd-tmp (read-passwd "Enter email password: ")))
  (message "Получение входящей почты...")
  (shell-command (concat "movemail --emacs pops://" username email-pswd-tmp
                                                 "@pop.gmail.com" " " inbox))
  (rmail)
  (rmail-summary-last-message)))
(add-hook 'rmail-quit-hook (lambda ()
                             (rkill-buffers "rmail.*")))
(add-hook 'mail-setup-hook 'mail-abbrevs-setup)

;;; SMTP
(require 'smtpmail)
(setq send-mail-function 'smtpmail-send-it
      smtpmail-smtp-server "smtp.gmail.com"
      smtpmail-stream-type 'starttls
      smtpmail-smtp-service 587)
(setq user-mail-address "Jone <address@hidden>")


i.e. mailutils with "pops" (gmail) it seems.
I use google-translate so I answer slowly. There are only wild
ubuntooids :) As win users.



reply via email to

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