[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
bug#37638: Patches
|
From: |
Juan Jose Garcia-Ripoll |
|
Subject: |
bug#37638: Patches |
|
Date: |
Sun, 06 Oct 2019 18:42:38 +0200 |
|
User-agent: |
Wanderlust/2.15.9 (Almost Unreal) SEMI-EPG/1.14.7 (Harue) FLIM/1.14.9 (Gojō) APEL/10.8 EasyPG/1.0.0 Emacs/26 (x86_64-w64-mingw32) MULE/6.0 (HANACHIRUSATO) |
I modified by hand the sources of the 26.3 distribution and
bytecompiled them. The following changes, indicating to
base64-encode-string that it should not use newline characters, seem
to fix the issue with this and other webs.
diff -u "url-auth-old.el" "url-auth.el"
--- url-auth-old.el Sun Oct 06 18:03:59 2019
+++ url-auth.el Sun Oct 06 18:10:38 2019
@@ -82,7 +82,7 @@
(cond
((and user pass)
;; Explicit http://user:pass@foo/ URL. Just return the credentials.
- (setq retval (base64-encode-string (format "%s:%s" user pass))))
+ (setq retval (base64-encode-string (format "%s:%s" user pass) t)))
((and prompt (not byserv))
(setq user (or
(url-do-auth-source-search server type :user)
@@ -97,7 +97,8 @@
(setq retval
(base64-encode-string
(format "%s:%s" user
- (encode-coding-string pass
'utf-8))))))
+ (encode-coding-string pass 'utf-8))
+ t))))
(symbol-value url-basic-auth-storage))))
(byserv
(setq retval (cdr-safe (assoc file byserv)))
@@ -120,7 +121,7 @@
pass (or
(url-do-auth-source-search server type :secret)
(read-passwd "Password: "))
- retval (base64-encode-string (format "%s:%s" user pass))
+ retval (base64-encode-string (format "%s:%s" user pass) t)
byserv (assoc server (symbol-value url-basic-auth-storage)))
(setcdr byserv
(cons (cons file retval) (cdr byserv))))))