From mboxrd@z Thu Jan 1 00:00:00 1970 X-Msuck: nntp://news.gmane.io/gmane.emacs.gnus.user/9497 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 23:09:53 +0200 Message-ID: <871web9jvi.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 1186780220 21614 80.91.229.12 (10 Aug 2007 21:10:20 GMT) X-Complaints-To: usenet@sea.gmane.org NNTP-Posting-Date: Fri, 10 Aug 2007 21:10:20 +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 23:10:18 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 1IJbkP-0001V8-3k for gegu-info-gnus-english@m.gmane.org; Fri, 10 Aug 2007 23:10:17 +0200 Original-Received: from localhost ([127.0.0.1] helo=lists.gnu.org) by lists.gnu.org with esmtp (Exim 4.43) id 1IJbkN-0006cc-78 for gegu-info-gnus-english@m.gmane.org; Fri, 10 Aug 2007 17:10:15 -0400 Original-Received: from mailman by lists.gnu.org with tmda-scanned (Exim 4.43) id 1IJbkL-0006cX-NI for info-gnus-english@gnu.org; Fri, 10 Aug 2007 17:10:13 -0400 Original-Received: from exim by lists.gnu.org with spam-scanned (Exim 4.43) id 1IJbkJ-0006cL-9S for info-gnus-english@gnu.org; Fri, 10 Aug 2007 17:10:12 -0400 Original-Received: from [199.232.76.173] (helo=monty-python.gnu.org) by lists.gnu.org with esmtp (Exim 4.43) id 1IJbkJ-0006cI-3D for info-gnus-english@gnu.org; Fri, 10 Aug 2007 17:10:11 -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 1IJbkI-0007DX-Mt for info-gnus-english@gnu.org; Fri, 10 Aug 2007 17:10:10 -0400 Original-Received: from list by ciao.gmane.org with local (Exim 4.43) id 1IJbkC-0005YB-P9 for info-gnus-english@gnu.org; Fri, 10 Aug 2007 23:10:04 +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 23:10:04 +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 23:10:04 +0200 X-Injected-Via-Gmane: http://gmane.org/ Original-Lines: 34 Original-X-Complaints-To: usenet@sea.gmane.org X-Gmane-NNTP-Posting-Host: dslb-084-063-058-033.pools.arcor-ip.net Face: iVBORw0KGgoAAAANSUhEUgAAADAAAAAwBAMAAAClLOS0AAAAD1BMVEW2mhnYvEn26qD+/vbC t5CEWCLiAAAACXBIWXMAAAsSAAALEgHS3X78AAAATnRFWHRSYXcgcHJvZmlsZSB0eXBlIGV4aWYA CmV4aWYKICAgICAgMjAKNDU3ODY5NjYwMDAwNGQ0ZDAwMmEwMDAwMDAwODAwMDAwMDAwMDAwMAqJ uBZbAAAACXZwQWcAAAAwAAAAMADO7oxXAAABkElEQVQ4y3WTDZLCIAyFQ08A6AFK0gNowgG6de9/ pn2Bau22ZRyF+ZKXX8lOjqZs1K9i+gUmStKAxmzTsjlECtwBEUfKb1CJKDvQkfwEWUFZCsD0shpi I8MbZAWoQWNI+KS3S2VhACaolwSAXzGkUD0ok7q4liwID4vFJAGEG1DIorDV4pGmXBCKka7GJPb0 ItwlIMHsHkJQMftlPKQQIVDA+wmAXgi70pg5pTyiGwC5t2SCw0LBOHNJ3oDH2sQf2CciETXNMLKx A82IhtCtbV6kQsJfT+aYuJB8+jtIA/OQiK3QNpDUgZeMtDYA7QZQl0fsUn6rK4heE+I36+WFvnMH paVobYJ6l5Ztr0M+IlgQr0vMvlKRPj0X5R1oDuXmXnICpDV9B6ooeugX//oCs2ry8dlzDyCASd2O HtNg2CC/jbwDMybYd24PoMSx8HugG3gMUoZtIhuYuRV3ANXX8XUCvIBRjkDjDStgR1CD/PuDrmDM dg7i6xwclVZQDkoriHwB7nYBlgugcgXsSurk/AEJvb3wF7X09QAAABp6VFh0anBlZzpjb2xvcnNw YWNlAAB42jMCAAAzADOJOCM1AAAAJnpUWHRqcGVnOnNhbXBsaW5nLWZhY3RvcgAAeNozqjDSMaww BGEAEYMC6T2XL08AAAAASUVORK5CYII= User-Agent: Gnus/5.110007 (No Gnus v0.7) Emacs/22.1.50 (gnu/linux) Cancel-Lock: sha1:WGb8lyHTSNOgIjrZW9NEaGUkBaw= 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:9497 Archived-At: Reiner Steib writes: Hi Reiner, >> (message-goto-newsgroups) >> (let ((newsgroups (buffer-substring-no-properties >> (line-beginning-position) (line-end-position)))) > > `message-fetch-field' Oh, much easier. Thanks for that pointer. Now that's what I use: --8<---------------cut here---------------start------------->8--- (defun th-message-switch-ispell-dictionary () (save-excursion (message-narrow-to-headers-or-head) (let ((newsgroups (message-fetch-field "Newsgroups")) (to (message-fetch-field "To"))) (message "newsgroup or to = %s." (or newsgroups to)) (if newsgroups (cond ((string-match (rx bol (or "de." "infko.")) newsgroups) (ispell-change-dictionary "german")) (t (ispell-change-dictionary "english"))) (cond ((string-match (rx ".de" (or (not (any word)) eol)) to) (ispell-change-dictionary "german")) (t (ispell-change-dictionary "english"))))))) (add-hook 'message-setup-hook 'th-message-switch-ispell-dictionary) --8<---------------cut here---------------end--------------->8--- Bye, Tassilo