[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] master 335c098: Remove Gnus functions from auth-source.el
From: |
Lars Ingebrigtsen |
Subject: |
[Emacs-diffs] master 335c098: Remove Gnus functions from auth-source.el |
Date: |
Tue, 23 Feb 2016 02:56:52 +0000 |
branch: master
commit 335c098a66f507ac6a6296e9daaa8ba6e7c1b0c0
Author: Lars Ingebrigtsen <address@hidden>
Commit: Lars Ingebrigtsen <address@hidden>
Remove Gnus functions from auth-source.el
* lisp/gnus/auth-source.el (auth-source-netrc-parse-entries):
Remove usage of Gnus utility function.
(mm-util, gnus-util): Don't require.
---
lisp/gnus/auth-source.el | 12 ++++--------
1 files changed, 4 insertions(+), 8 deletions(-)
diff --git a/lisp/gnus/auth-source.el b/lisp/gnus/auth-source.el
index b9341f5..cfd21a5 100644
--- a/lisp/gnus/auth-source.el
+++ b/lisp/gnus/auth-source.el
@@ -40,8 +40,6 @@
;;; Code:
(require 'password-cache)
-(require 'mm-util)
-(require 'gnus-util)
(eval-when-compile (require 'cl))
(require 'eieio)
@@ -1088,12 +1086,10 @@ Note that the MAX parameter is used so we can exit the
parse early."
(when (setq item2 (auth-source-netrc-parse-one))
;; Did we get a "machine" value?
(if (equal item2 "machine")
- (progn
- (gnus-error 1
- "%s: Unexpected `machine' token at line %d"
- "auth-source-netrc-parse-entries"
- (auth-source-current-line))
- (forward-line 1))
+ (error
+ "%s: Unexpected `machine' token at line %d"
+ "auth-source-netrc-parse-entries"
+ (auth-source-current-line))
(push (cons item item2) alist)))))
;; Clean up: if there's an entry left over, use it.
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Emacs-diffs] master 335c098: Remove Gnus functions from auth-source.el,
Lars Ingebrigtsen <=