Re: Change input method or smtp server depending on addressee

["Štěpán Němec" <stepnem@gmail.com>]

On Fri, 13 Sep 2019 14:39:05 -0400
Jorge A. Alfaro-Murillo wrote:

> Bob Newell writes:
>
>> We use gnus because it's amazing and does crazy stuff ... what other
>> client would allow me (just as one small example) to set my input
>> method to French, German, or Hawaiian depending on the addressee,
>> let alone choose my smtp server based on a similar criterion?
>> (Certain people ALWAYS get email from my preciously preserved AOL
>> address!)
>
> That sounds very useful, would you care to share more about how you do
> it?

I'm curious about Bob's (or anyone's) way, too. Here's how I do the
input method (and the related spell checking) part (I have no need for
the smtp server part) (`my-message-determine-language' below goes into
`message-setup-hook'):

(defun my-message-determine-language ()
  ;; adapted from `ispell-message'
  (save-excursion
    (let ((end-of-headers
           (copy-marker
            (or (re-search-forward
                 (concat "^" (regexp-quote mail-header-separator) "$")
                 nil t)
		(re-search-forward "^$" nil t)
		(point-min))))
          (dictionary-alist ispell-message-dictionary-alist)
          dict)
      (while dictionary-alist
        (goto-char (point-min))
        (if (re-search-forward (caar dictionary-alist) end-of-headers t)
	    (setq dict (cdar dictionary-alist)
                  ispell-local-dictionary dict
	          dictionary-alist nil)
	  (setq dictionary-alist (cdr dictionary-alist))))
      (my-message-determine-input-method dict))))

(defun my-message-determine-input-method (&optional lang)
  (push (setq evil-input-method (pcase (or lang ispell-local-dictionary)
                                  ("english")
                                  ("viet" "vietnamese-telex")
                                  (_ "czech")))
        input-method-history))

-- 
Štěpán