[elpa] master d3cf8b2 6/6: excorporate.el: Bump version to 0.7.6
branch: master commit d3cf8b2ec41614a5fa69c859273664b5cfd0edb1 Author: Thomas Fitzsimmons Commit: Thomas Fitzsimmons excorporate.el: Bump version to 0.7.6 * packages/excorporate/excorporate.el: Bump version to 0.7.6. --- packages/excorporate/NEWS |6 ++ packages/excorporate/excorporate.el |2 +- 2 files changed, 7 insertions(+), 1 deletion(-) diff --git a/packages/excorporate/NEWS b/packages/excorporate/NEWS index 4bb3a9c..d7d449d 100644 --- a/packages/excorporate/NEWS +++ b/packages/excorporate/NEWS @@ -1,5 +1,11 @@ GNU Emacs Excorporate NEWS -- history of user-visible changes. +* Excorporate 0.7.6 + +Released 2016-10-05 + +** Require some NTLM compatibility fixes via updated dependencies + * Excorporate 0.7.5 Released 2016-06-16 diff --git a/packages/excorporate/excorporate.el b/packages/excorporate/excorporate.el index 9c5f364..071da2b 100644 --- a/packages/excorporate/excorporate.el +++ b/packages/excorporate/excorporate.el @@ -5,7 +5,7 @@ ;; Author: Thomas Fitzsimmons ;; Maintainer: Thomas Fitzsimmons ;; Created: 2014-09-19 -;; Version: 0.7.5 +;; Version: 0.7.6 ;; Keywords: calendar ;; Homepage: https://www.fitzsim.org/blog/ ;; Package-Requires: ((emacs "24.1") (fsm "0.2") (soap-client "3.1.1") (url-http-ntlm "2.0.3"))
[elpa] master 54801f6 1/6: url-http-ntlm: Avoid calculating responses twice
branch: master commit 54801f6afade1d36855482d0c28281c6697e1956 Author: Thomas Fitzsimmons Commit: Thomas Fitzsimmons url-http-ntlm: Avoid calculating responses twice * packages/url-http-ntlm/url-http-ntlm.el (url-http-ntlm--get-stage): Update docstring. (url-ntlm-auth): Return immediately if prompt is not t. Update docstring. --- packages/url-http-ntlm/url-http-ntlm.el | 74 --- 1 file changed, 39 insertions(+), 35 deletions(-) diff --git a/packages/url-http-ntlm/url-http-ntlm.el b/packages/url-http-ntlm/url-http-ntlm.el index 58622ad..3946151 100644 --- a/packages/url-http-ntlm/url-http-ntlm.el +++ b/packages/url-http-ntlm/url-http-ntlm.el @@ -148,16 +148,9 @@ request to the host in URL's server slot." (defun url-http-ntlm--get-stage (args) "Determine what stage of the NTLM handshake we are at. -PROMPT and ARGS come from `url-ntlm-auth''s caller, -`url-get-authentication'. Their meaning depends on the current -implementation - this function is well and truly coupled. - -`url-get-authentication' calls `url-ntlm-auth' once when checking -what authentication schemes are supported (PROMPT and ARGS are -nil), and then twice for every stage of the handshake: the first -time PROMPT is nil, the second, t; ARGS contains the server -response's \"WWW-Authenticate\" header, munged by -`url-parse-args'." +ARGS comes from `url-ntlm-auth''s caller, +`url-get-authentication'. Its meaning depends on the current +implementation -- this function is well and truly coupled." (cl-declare (special url-http-extra-headers)) (let* ((response-rxp"^NTLM TlRMTVNTUAADAAA") (challenge-rxp"^TLRMTVNTUAACAAA") @@ -275,36 +268,47 @@ two-step process, this function expects to be called twice, first to generate the NTLM type 1 message (request), then to respond to the server's type 2 message (challenge) with a suitable response. -PROMPT, OVERWRITE, and REALM are ignored. +url-get-authentication' calls `url-ntlm-auth' once when checking +what authentication schemes are supported (PROMPT and ARGS are +nil), and then twice for every stage of the handshake: the first +time PROMPT is nil, the second, t; ARGS contains the server +response's \"WWW-Authenticate\" header, munged by +`url-parse-args'. + +If PROMPT is not t then this function just returns nil. This is +to avoid calculating responses twice. + +OVERWRITE and REALM are ignored. ARGS is expected to contain the WWW-Authentication header from the server's last response. These are used by `url-http-get-stage' to determine what stage we are at." - (url-http-ntlm--ensure-keepalive) - (let* ((user-url (url-http-ntlm--ensure-user url)) -(stage (url-http-ntlm--get-stage args))) -(url-debug 'url-http-ntlm "Stage: %s" stage) -(cl-case stage - ;; NTLM Type 1 message: the request - (:request - (url-http-ntlm--detect-loop user-url) - (cl-destructuring-bind (&optional key hash) - (url-http-ntlm--authorization user-url nil realm) -(when (cl-third key) - (url-http-ntlm--string - (ntlm-build-auth-request (cl-second key) (cl-third key)) - ;; NTLM Type 3 message: the response - (:response - (url-http-ntlm--detect-loop user-url) - (let ((challenge (url-http-ntlm--get-challenge))) -(cl-destructuring-bind (key hash) + (when (eq prompt t) +(url-http-ntlm--ensure-keepalive) +(let* ((user-url (url-http-ntlm--ensure-user url)) + (stage (url-http-ntlm--get-stage args))) + (url-debug 'url-http-ntlm "Stage: %s" stage) + (cl-case stage + ;; NTLM Type 1 message: the request + (:request +(url-http-ntlm--detect-loop user-url) +(cl-destructuring-bind (&optional key hash) (url-http-ntlm--authorization user-url nil realm) - (url-http-ntlm--string - (ntlm-build-auth-response challenge - (cl-second key) - hash) - (:error - (url-http-ntlm--authorization user-url :clear) + (when (cl-third key) +(url-http-ntlm--string + (ntlm-build-auth-request (cl-second key) (cl-third key)) + ;; NTLM Type 3 message: the response + (:response +(url-http-ntlm--detect-loop user-url) +(let ((challenge (url-http-ntlm--get-challenge))) + (cl-destructuring-bind (key hash) + (url-http-ntlm--authorization user-url nil realm) +(url-http-ntlm--string + (ntlm-build-auth-response challenge + (cl-second key) + hash) + (:error +(url-http-ntlm--authorization user-url :clear)) ;;; Register `url-ntlm-auth' HTTP authentication method.
[elpa] master a35ed63 3/6: url-http-ntlm: Bump version to 2.0.3
branch: master commit a35ed639267dc1c2f1b622a40a46aea5fff3a44d Author: Thomas Fitzsimmons Commit: Thomas Fitzsimmons url-http-ntlm: Bump version to 2.0.3 * packages/url-http-ntlm/url-http-ntlm.el: Bump version to 2.0.3. --- packages/url-http-ntlm/url-http-ntlm.el |2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/packages/url-http-ntlm/url-http-ntlm.el b/packages/url-http-ntlm/url-http-ntlm.el index d2bd83a..841dc6c 100644 --- a/packages/url-http-ntlm/url-http-ntlm.el +++ b/packages/url-http-ntlm/url-http-ntlm.el @@ -4,7 +4,7 @@ ;; Author: Tom Schutzer-Weissmann ;; Maintainer: Thomas Fitzsimmons -;; Version: 2.0.2 +;; Version: 2.0.3 ;; Keywords: comm, data, processes, hypermedia ;; Homepage: https://code.google.com/p/url-http-ntlm/ ;; Package-Requires: ((cl-lib "0.5") (ntlm "2.1.0"))
[elpa] master 5b6ce1f 4/6: packages/excorporate: Acknowledge Fabio Leimgruber
branch: master commit 5b6ce1f0b94c2e0e4ef7d8d45d6494a68dcc0004 Author: Thomas Fitzsimmons Commit: Thomas Fitzsimmons packages/excorporate: Acknowledge Fabio Leimgruber --- packages/excorporate/excorporate.el |3 +++ 1 file changed, 3 insertions(+) diff --git a/packages/excorporate/excorporate.el b/packages/excorporate/excorporate.el index 9f9f504..b4a0e7f 100644 --- a/packages/excorporate/excorporate.el +++ b/packages/excorporate/excorporate.el @@ -99,6 +99,9 @@ ;; Erik Hetzner tested on Office 365 and helped debug ;; Office 365 support. +;; Fabio Leimgruber tested NTLM +;; authentication against a challenging server configuration. + ;;; Code: ;; Implementation-visible functions and variables.
[elpa] master ae8ede8 5/6: packages/excorporate: Bump url-http-ntlm required version to 2.0.3
branch: master commit ae8ede8380a229c00a40cd596fe6d8de42a9 Author: Thomas Fitzsimmons Commit: Thomas Fitzsimmons packages/excorporate: Bump url-http-ntlm required version to 2.0.3 --- packages/excorporate/excorporate.el |2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/packages/excorporate/excorporate.el b/packages/excorporate/excorporate.el index b4a0e7f..9c5f364 100644 --- a/packages/excorporate/excorporate.el +++ b/packages/excorporate/excorporate.el @@ -8,7 +8,7 @@ ;; Version: 0.7.5 ;; Keywords: calendar ;; Homepage: https://www.fitzsim.org/blog/ -;; Package-Requires: ((emacs "24.1") (fsm "0.2") (soap-client "3.1.1") (url-http-ntlm "2.0.2")) +;; Package-Requires: ((emacs "24.1") (fsm "0.2") (soap-client "3.1.1") (url-http-ntlm "2.0.3")) ;; This program is free software: you can redistribute it and/or modify ;; it under the terms of the GNU General Public License as published by
[elpa] master updated (378f13a -> d3cf8b2)
fitzsim pushed a change to branch master. from 378f13a Merge branch 'master' of github.com:leoliu/ggtags new 54801f6 url-http-ntlm: Avoid calculating responses twice new 31f43d7 url-http-ntlm: Bump ntlm required version to 2.1.0 new a35ed63 url-http-ntlm: Bump version to 2.0.3 new 5b6ce1f packages/excorporate: Acknowledge Fabio Leimgruber new ae8ede8 packages/excorporate: Bump url-http-ntlm required version to 2.0.3 new d3cf8b2 excorporate.el: Bump version to 0.7.6 Summary of changes: packages/excorporate/NEWS |6 +++ packages/excorporate/excorporate.el |7 ++- packages/url-http-ntlm/url-http-ntlm.el | 78 --- 3 files changed, 52 insertions(+), 39 deletions(-)
[elpa] master 31f43d7 2/6: url-http-ntlm: Bump ntlm required version to 2.1.0
branch: master commit 31f43d798238ce122f694de5e2c9b253557f96c9 Author: Thomas Fitzsimmons Commit: Thomas Fitzsimmons url-http-ntlm: Bump ntlm required version to 2.1.0 --- packages/url-http-ntlm/url-http-ntlm.el |2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/packages/url-http-ntlm/url-http-ntlm.el b/packages/url-http-ntlm/url-http-ntlm.el index 3946151..d2bd83a 100644 --- a/packages/url-http-ntlm/url-http-ntlm.el +++ b/packages/url-http-ntlm/url-http-ntlm.el @@ -7,7 +7,7 @@ ;; Version: 2.0.2 ;; Keywords: comm, data, processes, hypermedia ;; Homepage: https://code.google.com/p/url-http-ntlm/ -;; Package-Requires: ((cl-lib "0.5") (ntlm "2.0.0")) +;; Package-Requires: ((cl-lib "0.5") (ntlm "2.1.0")) ;; This program is free software; you can redistribute it and/or modify ;; it under the terms of the GNU General Public License as published by
[elpa] master 333b902: excorporate.texi: Increase authentication success likelihood
branch: master commit 333b9029ee4c4973f99d6251e3772233b83800e4 Author: Thomas Fitzsimmons Commit: Thomas Fitzsimmons excorporate.texi: Increase authentication success likelihood --- packages/excorporate/excorporate.texi |6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/packages/excorporate/excorporate.texi b/packages/excorporate/excorporate.texi index 99cb9d1..00bd77f 100644 --- a/packages/excorporate/excorporate.texi +++ b/packages/excorporate/excorporate.texi @@ -43,10 +43,10 @@ and modified without restriction. Excorporate provides Exchange Web Services (EWS) support for Emacs. If the Exchange server you access is configured to provide EWS -support, then there's a 76% chance that Excorporate will enable you to -retrieve your calendar entries from the comfort of Emacs. +support, then there's an 83% chance that Excorporate will enable you +to retrieve your calendar entries from the comfort of Emacs. -The 24% failure rate is because accessing -- in particular, +The 17% failure rate is because accessing -- in particular, authenticating against -- an Exchange server can be challenging. Known to fail are Kerberos/GSSAPI authentication and accessing the
[elpa] externals/exwm 089afdc 1/2: Fix problems with active minibuffer
branch: externals/exwm commit 089afdc8ccbd37647f3b9d3b6181db5bcf3e43e9 Author: Chris Feng Commit: Chris Feng Fix problems with active minibuffer * exwm-floating.el (exwm-floating--unset-floating): Never use the minibuffer window to display an `exwm-mode' buffer. * exwm-input.el (exwm-input--on-buffer-list-update) (exwm-input--update-focus): Allow updating input focus when the minibuffer is active. (exwm-input--update-focus): Handle the case when an auto-hiding minibuffer is active. (exwm-input--during-key-sequence): Renamed to `exwm-input--line-mode-passthrough'. (exwm-input--line-mode-passthrough): New variable for forcing all events to be passed to Emacs in line-mode. (exwm-input--on-KeyPress-line-mode, exwm-input-send-next-key): Use it. (exwm-input--finish-key-sequence, exwm-input--init, exwm-input--exit): Drop `exwm-input--finish-key-sequence'. (exwm-input--line-mode-cache): New variable for caching incomplete key sequences. (exwm-input--cache-event): New function for handling new key events. (exwm-input--on-KeyPress-line-mode, exwm-input--on-KeyPress-char-mode): Use it. --- exwm-floating.el |6 ++-- exwm-input.el| 83 -- 2 files changed, 47 insertions(+), 42 deletions(-) diff --git a/exwm-floating.el b/exwm-floating.el index 1780e5f..dffdc3c 100644 --- a/exwm-floating.el +++ b/exwm-floating.el @@ -337,9 +337,11 @@ context of the corresponding buffer.") (setq window-size-fixed nil exwm--floating-frame nil exwm--frame exwm-workspace--current)) +;; Only show X windows in normal state. (unless (exwm-layout--iconic-state-p) - ;; Only show X windows in normal state. - (let ((window (frame-selected-window exwm-workspace--current))) + ;; Show it in the selected Emacs window but skip the mini-window. + (let ((window (or (minibuffer-selected-window) +(frame-selected-window exwm-workspace--current (set-window-buffer window buffer) (select-window window (with-current-buffer (exwm--id->buffer id) diff --git a/exwm-input.el b/exwm-input.el index b956f5c..4a8fdbb 100644 --- a/exwm-input.el +++ b/exwm-input.el @@ -158,8 +158,7 @@ This value should always be overwritten.") (defun exwm-input--on-buffer-list-update () "Run in `buffer-list-update-hook' to track input focus." - (when (and (not (minibufferp)) ;Do not set input focus on minibuffer window. - (eq (current-buffer) (window-buffer)) ;e.g. `with-temp-buffer'. + (when (and (eq (current-buffer) (window-buffer)) ;e.g. `with-temp-buffer'. (not (eq this-command #'handle-switch-frame)) (not (exwm-workspace--client-p))) (setq exwm-input--update-focus-window (selected-window)) @@ -209,9 +208,7 @@ This value should always be overwritten.") (defun exwm-input--update-focus (window) "Update input focus." (setq exwm-input--update-focus-lock t) - (when (and (window-live-p window) - ;; Do not update input focus when there's an active minibuffer. - (not (active-minibuffer-window))) + (when (window-live-p window) (with-current-buffer (window-buffer window) (if (eq major-mode 'exwm-mode) (if (not (eq exwm--frame exwm-workspace--current)) @@ -238,7 +235,15 @@ This value should always be overwritten.") ;; so switch to it. (exwm-workspace-switch (selected-frame)) ;; The focus is still on the current workspace. -(select-frame-set-input-focus (window-frame window) t) +(if (not (and (exwm-workspace--minibuffer-own-frame-p) + (minibufferp))) +(select-frame-set-input-focus (window-frame window) t) + ;; X input focus should be set on the previously selected + ;; frame. + (select-frame-set-input-focus (window-frame + (minibuffer-selected-window)) +t) + (select-frame (window-frame window) t)) (exwm-input--set-active-window) (xcb:flush exwm--connection)) (setq exwm-input--update-focus-lock nil)) @@ -256,20 +261,6 @@ This value should always be overwritten.") :window exwm--root :data (or id xcb:Window:None -(defvar exwm-input--during-key-sequence nil - "Non-nil indicates Emacs is waiting for more keys to form a key sequence.") -(defvar exwm-input--temp-line-mode nil - "Non-nil indicates it's in temporary line-mode for char-mode.") - -(defun exwm-input--finish-key-sequence () - "Mark the end of a key sequence (with the aid of `pre-command-hook')." - (when (and exwm-input--during-key-sequence - (not (equal [?\C-u] (this-single-command-keys -(setq exwm-input--during-key-sequ
[elpa] externals/exwm updated (575162b -> 09b4f09)
ch11ng pushed a change to branch externals/exwm. from 575162b Bump version to 0.11 new 089afdc Fix problems with active minibuffer new 09b4f09 Avoid updating input focus when renaming buffers Summary of changes: exwm-floating.el |6 ++-- exwm-input.el | 83 +++-- exwm-workspace.el | 16 +-- 3 files changed, 60 insertions(+), 45 deletions(-)
[elpa] externals/exwm 09b4f09 2/2: Avoid updating input focus when renaming buffers
branch: externals/exwm commit 09b4f0915828222942d8ac3ae7f970e8d3d8468a Author: Chris Feng Commit: Chris Feng Avoid updating input focus when renaming buffers * exwm-workspace.el (exwm-workspace-switch-to-buffer) (exwm-workspace-rename-buffer): Do not update input focus. --- exwm-workspace.el | 16 +--- 1 file changed, 13 insertions(+), 3 deletions(-) diff --git a/exwm-workspace.el b/exwm-workspace.el index 12f0be7..617ad38 100644 --- a/exwm-workspace.el +++ b/exwm-workspace.el @@ -636,6 +636,7 @@ INDEX must not exceed the current number of workspaces." :window id :data (exwm-workspace--position exwm--frame) +(declare-function exwm-input--on-buffer-list-update "exwm-input.el" ()) (declare-function exwm-layout--show "exwm-layout.el" (id &optional window)) (declare-function exwm-layout--hide "exwm-layout.el" (id)) (declare-function exwm-layout--refresh "exwm-layout.el") @@ -780,7 +781,10 @@ INDEX must not exceed the current number of workspaces." (dolist (pair exwm--id-buffer-alist) (with-current-buffer (cdr pair) (when (= ?\s (aref (buffer-name) 0)) - (rename-buffer (substring (buffer-name) 1)) + (let ((buffer-list-update-hook +(remq #'exwm-input--on-buffer-list-update + buffer-list-update-hook))) + (rename-buffer (substring (buffer-name) 1))) (prog1 (with-local-quit (list (get-buffer (read-buffer-to-switch "Switch to buffer: " @@ -790,7 +794,10 @@ INDEX must not exceed the current number of workspaces." (with-current-buffer (cdr pair) (unless (or (eq exwm--frame exwm-workspace--current) (= ?\s (aref (buffer-name) 0))) - (rename-buffer (concat " " (buffer-name)) + (let ((buffer-list-update-hook + (remq #'exwm-input--on-buffer-list-update +buffer-list-update-hook))) + (rename-buffer (concat " " (buffer-name))) (when buffer-or-name (with-current-buffer buffer-or-name (if (eq major-mode 'exwm-mode) @@ -820,7 +827,10 @@ INDEX must not exceed the current number of workspaces." (get-buffer (concat " " newname (not (eq tmp (current-buffer (setq newname (format "%s<%d>" basename (cl-incf counter -(rename-buffer (concat (and hidden " ") newname +(let ((buffer-list-update-hook + (remq #'exwm-input--on-buffer-list-update + buffer-list-update-hook))) + (rename-buffer (concat (and hidden " ") newname) (defun exwm-workspace--x-create-frame (orig-fun params) "Set override-redirect on the frame created by `x-create-frame'."
