From mboxrd@z Thu Jan 1 00:00:00 1970 X-Msuck: nntp://news.gmane.io/gmane.emacs.gnus.user/9495 Path: news.gmane.org!not-for-mail From: Tassilo Horn Newsgroups: gmane.emacs.gnus.user Subject: Re: Changing ispell dictionary Date: Fri, 10 Aug 2007 22:20:58 +0200 Message-ID: <87vebn9m51.fsf@baldur.tsdh.de> References: <87mywzqw73.fsf@gmx.de> <87r6mbb25g.fsf@baldur.tsdh.de> NNTP-Posting-Host: lo.gmane.org Mime-Version: 1.0 Content-Type: text/plain; charset=us-ascii X-Trace: sea.gmane.org 1186777282 12342 80.91.229.12 (10 Aug 2007 20:21:22 GMT) X-Complaints-To: usenet@sea.gmane.org NNTP-Posting-Date: Fri, 10 Aug 2007 20:21:22 +0000 (UTC) To: info-gnus-english@gnu.org Original-X-From: info-gnus-english-bounces+gegu-info-gnus-english=m.gmane.org@gnu.org Fri Aug 10 22:21:19 2007 Return-path: Envelope-to: gegu-info-gnus-english@m.gmane.org Original-Received: from lists.gnu.org ([199.232.76.165]) by lo.gmane.org with esmtp (Exim 4.50) id 1IJayw-0001tl-O4 for gegu-info-gnus-english@m.gmane.org; Fri, 10 Aug 2007 22:21:15 +0200 Original-Received: from localhost ([127.0.0.1] helo=lists.gnu.org) by lists.gnu.org with esmtp (Exim 4.43) id 1IJayv-0006Bs-VB for gegu-info-gnus-english@m.gmane.org; Fri, 10 Aug 2007 16:21:13 -0400 Original-Received: from mailman by lists.gnu.org with tmda-scanned (Exim 4.43) id 1IJayt-0006BE-Pk for info-gnus-english@gnu.org; Fri, 10 Aug 2007 16:21:11 -0400 Original-Received: from exim by lists.gnu.org with spam-scanned (Exim 4.43) id 1IJayr-0006AH-BN for info-gnus-english@gnu.org; Fri, 10 Aug 2007 16:21:10 -0400 Original-Received: from [199.232.76.173] (helo=monty-python.gnu.org) by lists.gnu.org with esmtp (Exim 4.43) id 1IJayr-0006A9-8D for info-gnus-english@gnu.org; Fri, 10 Aug 2007 16:21:09 -0400 Original-Received: from main.gmane.org ([80.91.229.2] helo=ciao.gmane.org) by monty-python.gnu.org with esmtps (TLS-1.0:RSA_AES_256_CBC_SHA1:32) (Exim 4.60) (envelope-from ) id 1IJayq-0002Ar-Sh for info-gnus-english@gnu.org; Fri, 10 Aug 2007 16:21:09 -0400 Original-Received: from list by ciao.gmane.org with local (Exim 4.43) id 1IJayo-0000bY-BZ for info-gnus-english@gnu.org; Fri, 10 Aug 2007 22:21:06 +0200 Original-Received: from dslb-084-063-058-033.pools.arcor-ip.net ([84.63.58.33]) by main.gmane.org with esmtp (Gmexim 0.1 (Debian)) id 1AlnuQ-0007hv-00 for ; Fri, 10 Aug 2007 22:21:06 +0200 Original-Received: from tassilo by dslb-084-063-058-033.pools.arcor-ip.net with local (Gmexim 0.1 (Debian)) id 1AlnuQ-0007hv-00 for ; Fri, 10 Aug 2007 22:21:06 +0200 X-Injected-Via-Gmane: http://gmane.org/ Original-Lines: 41 Original-X-Complaints-To: usenet@sea.gmane.org X-Gmane-NNTP-Posting-Host: dslb-084-063-058-033.pools.arcor-ip.net Face: iVBORw0KGgoAAAANSUhEUgAAADAAAAAwBAMAAAClLOS0AAAAElBMVEVWVlFmseNrkqmgzeif v9JYdoX7Ctb5AAAACXBIWXMAAAsSAAALEgHS3X78AAAACXZwQWcAAAAwAAAAMADO7oxXAAABqUlE QVQ4y8WTy3KkMAxFVQT2Iz/2QOAD3CZ7jNV7YNr//ysjmWcqlUWyGVU11dzjK9myAPwm4P8A963D /TCV06dDeURzkQug8fFm8OYAIT5afRI/DAfQNbzcvhnn/Ud1gD/wTl7rvFHvNc7Fo2GgFJTRe8dA ay/gCV121NAZJto50TlhB0VgQFD4QCwNTMWAZgRCUCOUaMTCMGYHjvBihwC2xYmIoh+It2BZgozR Qo6K6he3oc1g5oTYjRsp4c1ha6BgwG8BSUCZH4SkoApgZigbnEaRBG+rignUDNUQROLiBCwh8dpJ istayMcfQDgrXEN9wB47kM3BwsXNDfjjv7SEi3wBuVfY7UQ6xQeRoNzdhiZeThugh5x/A9gEosHn 3ub+xtCc40OH6ocg8jVXelssj8+TKO+G73a/kRtgk0ySzMk9VYwhSEKDcvcXCFPgIW1aZVYey3AB 3fZpSctqU/FMf68a5rkWfaqWNbV1vya6QN83tWVPpeq6mpcTPNaEKfVpndXcV+kCtufsaeYsrKa0 niDZVi02Wf6lpb05cthffufLTxyfi/wD4S56Bxo/ZasAAAAmelRYdENvbW1lbnQAAHjacy5KTSxJ TVEozyzJUAjJSFVw9/QNAABS5wcjkMtlcAAAABp6VFh0anBlZzpjb2xvcnNwYWNlAAB42jMCAAAz ADOJOCM1AAAAJnpUWHRqcGVnOnNhbXBsaW5nLWZhY3RvcgAAeNozqjDSMawwBGEAEYMC6T2XL08A AAAASUVORK5CYII= User-Agent: Gnus/5.110007 (No Gnus v0.7) Emacs/22.1.50 (gnu/linux) Cancel-Lock: sha1:LIRSD1j9I8Tr5yUVbNCtgYLRmUA= X-Detected-Kernel: Linux 2.6, seldom 2.4 (older, 4) X-BeenThere: info-gnus-english@gnu.org X-Mailman-Version: 2.1.5 Precedence: list List-Id: "Announcements and discussions for GNUS, the GNU Emacs Usenet newsreader \(in English\)" List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Original-Sender: info-gnus-english-bounces+gegu-info-gnus-english=m.gmane.org@gnu.org Errors-To: info-gnus-english-bounces+gegu-info-gnus-english=m.gmane.org@gnu.org Xref: news.gmane.org gmane.emacs.gnus.user:9495 Archived-At: Tassilo Horn writes: Hi again, > I didn't test it, but I wouldn't be too surprised if it works. ;-) Well, I thought it could be useful for me, too, so I tried it. It didn't work. Below is a working version. > For mail recipients you could probably use a field in the bbdb which > indicates the receivers language, or simply guess by the top-level > domain of the email address. That's what I do now. --8<---------------cut here---------------start------------->8--- (defun th-switch-ispell-dictionary () (save-excursion (goto-char (point-min)) (re-search-forward (rx bol (group (or "To:" "Newsgroups:")))) (if (string= (match-string 1) "Newsgroups:") (let ((newsgroups (buffer-substring-no-properties (line-beginning-position) (line-end-position)))) (cond ((string-match (rx " de.") newsgroups) (ispell-change-dictionary "german")) (t (ispell-change-dictionary "english")))) (let ((to (buffer-substring-no-properties (line-beginning-position) (line-end-position)))) (cond ((string-match (rx ".de" (not (any word))) to) (ispell-change-dictionary "german")) (t (ispell-change-dictionary "english"))))))) (add-hook 'message-setup-hook 'th-switch-ispell-dictionary) --8<---------------cut here---------------end--------------->8--- Bye, Tassilo -- Chuck Norris' favorite cereal is Kellogg's Nails 'N' Gravel.