From mboxrd@z Thu Jan 1 00:00:00 1970 X-Msuck: nntp://news.gmane.io/gmane.emacs.gnus.general/20863 Path: main.gmane.org!not-for-mail From: Tatsuya Ichikawa Newsgroups: gmane.emacs.gnus.general Subject: Re: APOP auth support in mail-source.el Date: 02 Feb 1999 22:13:43 +0900 Organization: Semi-gnus =?ISO-2022-JP?B?GyRCJHJIL0U4JDUkOyRrPj5LXDtZGyhC?= =?ISO-2022-JP?B?GyRCSXQbKEI=?= Sender: owner-ding@hpc.uh.edu Message-ID: <199902021319.WAA26855@niagara.shiojiri.ne.jp> References: NNTP-Posting-Host: coloc-standby.netfonds.no Mime-Version: 1.0 (generated by WEMI 1.13.2 - "Mochimune") Content-Type: multipart/mixed; boundary="Multipart_Tue_Feb_02_22:13:43_1999-1" X-Trace: main.gmane.org 1035159079 20063 80.91.224.250 (21 Oct 2002 00:11:19 GMT) X-Complaints-To: usenet@main.gmane.org NNTP-Posting-Date: Mon, 21 Oct 2002 00:11:19 +0000 (UTC) Return-Path: Original-Received: from karazm.math.uh.edu (karazm.math.uh.edu [129.7.128.1]) by sclp3.sclp.com (8.8.5/8.8.5) with ESMTP id IAA12146 for ; Tue, 2 Feb 1999 08:21:40 -0500 (EST) Original-Received: from sina.hpc.uh.edu (lists@Sina.HPC.UH.EDU [129.7.3.5]) by karazm.math.uh.edu (8.9.1/8.9.1) with ESMTP id HAB18621; Tue, 2 Feb 1999 07:20:25 -0600 (CST) Original-Received: by sina.hpc.uh.edu (TLB v0.09a (1.20 tibbs 1996/10/09 22:03:07)); Tue, 02 Feb 1999 07:20:40 -0600 (CST) Original-Received: from sclp3.sclp.com (root@sclp3.sclp.com [204.252.123.139]) by sina.hpc.uh.edu (8.7.3/8.7.3) with ESMTP id HAA29888 for ; Tue, 2 Feb 1999 07:20:28 -0600 (CST) Original-Received: from niagara.shiojiri.ne.jp (niagara.shiojiri.ne.jp [203.141.192.49]) by sclp3.sclp.com (8.8.5/8.8.5) with ESMTP id IAA12139 for ; Tue, 2 Feb 1999 08:20:20 -0500 (EST) Original-Received: from swing.po.shiojiri.ne.jp ([203.141.192.97]) by niagara.shiojiri.ne.jp (8.9.0/3.6W-98061921) with ESMTP id WAA26855 for ; Tue, 2 Feb 1999 22:19:57 +0900 (JST) Original-To: Gnus ML X-URL: http://www.shiojiri.ne.jp/%7Et-ichi/ X-Info: http://pgp.nic.ad.jp/cgi-bin/pgpsearchkey.pl?op=get&search=0x0A2D6599 X-PGP-Sig-Version: v1.3.4 - "Sun King" (Yet another PGP authenticating utility) X-PGP-Sig: 5.0i Subject,Message-ID,Date,From,User-Agent,X-Face iQBVAwUBNrb6C3iR0oMKLWWZAQHaUQH/ZSwdeiwYUt9AO41F74GOsEyDUyLtxpOm c9NSbDvkC74CZRfz/8IAJdSMFSIUbravLwJ3pDBj3kalcchgJloxgg== =qBMd X-Face-Version: X-Face utility v1.3.4 - "Hello Goodbye" X-Face: (-g67;v;O`h)5hNnePN5i~sXwUJC X-Gnus-Offline-Backend: Gnus offline backend utiliy v2.10b1 - "Ahhhhhhh!!" with nnagent 1.0 In-Reply-To: (Tatsuya Ichikawa's message of "02 Feb 1999 11:22:27 +0900") User-Agent: T-gnus/6.10.056 (based on Pterodactyl Gnus v0.74) WEMI/1.13.2 (Mochimune) FLIM/1.12.5 (Hirahata) Emacs/20.2 (i386-*-windows95-4.10) MULE/3.0 (=?ISO-2022-JP?B?GyRCOUhNVTJsGyhC?=) Meadow/1.01 (=?ISO-2022-JP?B?GyRCP2lHNTxuGyhC?=) X-Nnmail-Lines: 99 Precedence: list X-Majordomo: 1.94.jlt7 Xref: main.gmane.org gmane.emacs.gnus.general:20863 X-Report-Spam: http://spam.gmane.org/gmane.emacs.gnus.general:20863 --Multipart_Tue_Feb_02_22:13:43_1999-1 Content-Type: text/plain; charset=US-ASCII >>>>> In >>>>> Tatsuya Ichikawa wrote: > From Pterodactyl Gnus v0.73 , mail-source.el does not support APOP > authentication scheme , but pop3.el support APOP authentication > scheme. > I create patch to support APOP auth in mail-source.el. Here is better patch to support APOP with mail-source.el. So please apply this patch. 1999-02-01 Tatsuya Ichikawa * lisp/mail-source.el : Support APOP authentication scheme. --Multipart_Tue_Feb_02_22:13:43_1999-1 Content-Type: application/octet-stream; type=patch Content-Disposition: attachment; filename="mail-source.el.patch" Content-Transfer-Encoding: 7bit *** mail-source.el.orig Tue Feb 02 22:09:24 1999 --- mail-source.el Tue Feb 02 22:07:52 1999 *************** *** 74,79 **** --- 74,87 ---- (:args) (:function) (:password)) + (apop + (:server (getenv "MAILHOST")) + (:port "pop3") + (:user (or (user-login-name) (getenv "LOGNAME") (getenv "USER"))) + (:program) + (:args) + (:function) + (:password)) (maildir (:path))) "Mapping from keywords to default values. *************** *** 83,88 **** --- 91,97 ---- '((file mail-source-fetch-file) (directory mail-source-fetch-directory) (pop mail-source-fetch-pop) + (apop mail-source-fetch-pop) (qmail mail-source-fetch-qmail)) "A mapping from source type to fetcher function.") *************** *** 310,316 **** "Fetcher for single-file sources." (mail-source-bind (pop source) (let ((from (format "%s:%s:%s" server user port)) ! (mail-source-string (format "pop:%s@%s" user server))) (setq password (or password (cdr (assoc from mail-source-password-cache)) --- 319,325 ---- "Fetcher for single-file sources." (mail-source-bind (pop source) (let ((from (format "%s:%s:%s" server user port)) ! (mail-source-string (format "%s:%s@%s" (car source) user server))) (setq password (or password (cdr (assoc from mail-source-password-cache)) *************** *** 332,338 **** (t (let ((pop3-password password) (pop3-maildrop user) ! (pop3-mailhost server)) (save-excursion (pop3-movemail mail-source-crash-box))))) (mail-source-callback callback server) ;; We nix out the password in case the error --- 341,348 ---- (t (let ((pop3-password password) (pop3-maildrop user) ! (pop3-mailhost server) ! (pop3-authentication-scheme (if (eq 'apop (car source)) 'apop 'pass))) (save-excursion (pop3-movemail mail-source-crash-box))))) (mail-source-callback callback server) ;; We nix out the password in case the error --Multipart_Tue_Feb_02_22:13:43_1999-1 Content-Type: text/plain; charset=US-ASCII -- Tatsuya Ichikawa : Shiojiri Internet... # PGP Public Key : See X-Info Header of this message. ;-p # Meadow's Page : http://www.shiojiri.ne.jp/~t-ichi/meadow.html --Multipart_Tue_Feb_02_22:13:43_1999-1--