以前から気になっていた org2blog を emacs-25.1.1 で動かそう。 という話。

(この記事はemacs-25+org2blogで投稿しました)

org2blog / README.org を参考に、packageから org2blog をインストールして、以下の様に設定。

(require 'org2blog-autoloads)
(setq org2blog/wp-blog-alist
   '(("wordpress"
      :url "http://***.somof.net/****"
      :username "****"
      :password "****"
      :wp-latex nil
      :wp-code t
      )))

早速試してみるとワーニングが出たので、追加で htmlize の新しいバージョンを手動でインストールした。

これでログイン(org2blog/wp-login)まで出来るようになったけれど、投稿(org2blog/wp-post-buffer)が出来ない。

エラーメッセージは、こんな感じ。

error in process sentinel: url-http-create-request: Multibyte text in HTTP request: POST /xmlrpc.php HTTP/1.1


…

error in process sentinel: Multibyte text in HTTP request: POST /xmlrpc.php HTTP/1.1

雰囲気、文字コードか改行コードの問題の様。 org2blogが呼び出している gzipコマンドを Apple製からGNU製に変えてみたけど、症状は変わらず。

仕方ないので org2blogのソースを追ってみたところ、エラーの発信源は emacsに添付されている url-http.el だった。 なんと、 emacs 自身のコード側に問題があったのだった。

url-http-create-request関数の中に、こんなコードが紛れていた。

;; Bug#23750
(unless (= (string-bytes request)
           (length request))
  (error "Multibyte text in HTTP request: %s" request))
(url-http-debug "Request is: \n%s" request)

今使っているemacsは、リリース版の emacs 25.1.1 なのだけど、たまたま出来たてのバグを踏んでしまったらしい。

request(XML-RPCのXMLそのもの)の文字数とバイト数が一致しない場合にエラーを返す、多分デバッグ用のコードなのだけど、 ユーザーには意味がないので、とりあえず削除することにする。

こんな風に、initファイルに追加。

(advice-add 'url-http-create-request :override
            'url-http-create-request-debug)
(defun url-http-create-request-debug (&optional ref-url)
  "Create an HTTP request for <code>url-http-target-url', referred to by REF-URL."
  (let* ((extra-headers)
         (request nil)
         (no-cache (cdr-safe (assoc "Pragma" url-http-extra-headers)))
         (using-proxy url-http-proxy)
         (proxy-auth (if (or (cdr-safe (assoc "Proxy-Authorization"
                                              url-http-extra-headers))
                             (not using-proxy))
                         nil
                       (let ((url-basic-auth-storage
                              'url-http-proxy-basic-auth-storage))
                         (url-get-authentication url-http-proxy nil 'any nil))))
         (real-fname (url-filename url-http-target-url))
         (host (url-http--encode-string (url-host url-http-target-url)))
         (auth (if (cdr-safe (assoc "Authorization" url-http-extra-headers))
                   nil
                 (url-get-authentication (or
                                          (and (boundp 'proxy-info)
                                               proxy-info)
                                          url-http-target-url) nil 'any nil))))
    (if (equal "" real-fname)
        (setq real-fname "/"))
    (setq no-cache (and no-cache (string-match "no-cache" no-cache)))
    (if auth
        (setq auth (concat "Authorization: " auth "\r\n")))
    (if proxy-auth
        (setq proxy-auth (concat "Proxy-Authorization: " proxy-auth "\r\n")))

    ;; Protection against stupid values in the referrer
    (if (and ref-url (stringp ref-url) (or (string= ref-url "file:nil")
                                           (string= ref-url "")))
        (setq ref-url nil))

    ;; We do not want to expose the referrer if the user is paranoid.
    (if (or (memq url-privacy-level '(low high paranoid))
            (and (listp url-privacy-level)
                 (memq 'lastloc url-privacy-level)))
        (setq ref-url nil))

    ;; url-http-extra-headers contains an assoc-list of
    ;; header/value pairs that we need to put into the request.
    (setq extra-headers (mapconcat
                         (lambda (x)
                           (concat (car x) ": " (cdr x)))
                         url-http-extra-headers "\r\n"))
    (if (not (equal extra-headers ""))
        (setq extra-headers (concat extra-headers "\r\n")))

    ;; This was done with a call to </code>format'.  Concatenating parts has
    ;; the advantage of keeping the parts of each header together and
    ;; allows us to elide null lines directly, at the cost of making
    ;; the layout less clear.
    (setq request
          (concat
             ;; The request
             (or url-http-method "GET") " "
             (url-http--encode-string
              (if using-proxy (url-recreate-url url-http-target-url) real-fname))
             " HTTP/" url-http-version "\r\n"
             ;; Version of MIME we speak
             "MIME-Version: 1.0\r\n"
             ;; (maybe) Try to keep the connection open
             "Connection: " (if (or using-proxy
                                    (not url-http-attempt-keepalives))
                                "close" "keep-alive") "\r\n"
                                ;; HTTP extensions we support
             (if url-extensions-header
                 (format
                  "Extension: %s\r\n" url-extensions-header))
             ;; Who we want to talk to
             (if (/= (url-port url-http-target-url)
                     (url-scheme-get-property
                      (url-type url-http-target-url) 'default-port))
                 (format
                  "Host: %s:%d\r\n" host (url-port url-http-target-url))
               (format "Host: %s\r\n" host))
             ;; Who its from
             (if url-personal-mail-address
                 (concat
                  "From: " url-personal-mail-address "\r\n"))
             ;; Encodings we understand
             (if (or url-mime-encoding-string
                     ;; MS-Windows loads zlib dynamically, so recheck
                     ;; in case they made it available since
                     ;; initialization in url-vars.el.
                     (and (eq 'system-type 'windows-nt)
                          (fboundp 'zlib-available-p)
                          (zlib-available-p)
                          (setq url-mime-encoding-string "gzip")))
                 (concat
                  "Accept-encoding: " url-mime-encoding-string "\r\n"))
             (if url-mime-charset-string
                 (concat
                  "Accept-charset: "
                  (url-http--encode-string url-mime-charset-string)
                  "\r\n"))
             ;; Languages we understand
             (if url-mime-language-string
                 (concat
                  "Accept-language: " url-mime-language-string "\r\n"))
             ;; Types we understand
             "Accept: " (or url-mime-accept-string "*/*") "\r\n"
             ;; User agent
             (url-http-user-agent-string)
             ;; Proxy Authorization
             proxy-auth
             ;; Authorization
             auth
             ;; Cookies
             (when (url-use-cookies url-http-target-url)
               (url-http--encode-string
                (url-cookie-generate-header-lines
                 host real-fname
                 (equal "https" (url-type url-http-target-url)))))
             ;; If-modified-since
             (if (and (not no-cache)
                      (member url-http-method '("GET" nil)))
                 (let ((tm (url-is-cached url-http-target-url)))
                   (if tm
                       (concat "If-modified-since: "
                               (url-get-normalized-date tm) "\r\n"))))
             ;; Whence we came
             (if ref-url (concat
                          "Referer: " ref-url "\r\n"))
             extra-headers
             ;; Length of data
             (if url-http-data
                 (concat
                  "Content-length: " (number-to-string
                                      (length url-http-data))
                  "\r\n"))
             ;; End request
             "\r\n"
             ;; Any data
             url-http-data))
    ;; Bug#23750
    ;;(unless (= (string-bytes request)
    ;;           (length request))
    ;;  (message "   text byte %d vs %d length" (string-bytes request) (length request)))
      ;;(message "===============================")
      ;;(error "Multibyte text in HTTP request: %s" request))
    (url-http-debug "Request is: \n%s" request)
    request))

これで、無事 org2blogから投稿できるようになった。

そのうち解決されるだろうけれど、それまではこれで凌ごう。

2016/03/24 現在のhelmの初期状態が、
変更していた自分好みと殆ど同じになったので
設定を見直した。

#+BEGIN_SRC lisp
;; ————————————————————————
;; @ helm
(require ‘helm-config)
(require ‘helm-command)
;;(require ‘helm-descbinds)

;; 体感速度向上
;;(setq helm-idle-delay 0.2)
;;(setq helm-input-idle-delay 0.2)

;;(setq helm-candidate-number-limit 200)
(setq helm-mini-default-sources ‘(helm-source-recentf
;;helm-source-files-in-current-dir
helm-source-buffers-list
;;helm-source-buffer-not-found
))
(helm-mode 1)

;; Helm KeyBind
(define-key global-map [remap find-file] ‘helm-find-files)
(define-key global-map [remap occur] ‘helm-occur)
(define-key global-map [remap list-buffers] ‘helm-buffers-list)
(define-key global-map [remap dabbrev-expand] ‘helm-dabbrev)
(global-set-key (kbd “M-x”) ‘helm-M-x)

;;; helmで変更したい/したくないコマンド
;;(add-to-list ‘helm-completing-read-handlers-alist ‘(find-file . nil))
;; ‘((describe-function . helm-completing-read-symbols)
;; (describe-variable . helm-completing-read-symbols)
;; (describe-symbol . helm-completing-read-symbols)
;; (debug-on-entry . helm-completing-read-symbols)
;; (find-function . helm-completing-read-symbols)
;; (disassemble . helm-completing-read-symbols)
;; (trace-function . helm-completing-read-symbols)
;; (trace-function-foreground . helm-completing-read-symbols)
;; (trace-function-background . helm-completing-read-symbols)
;; (find-tag . helm-completing-read-with-cands-in-buffer)
;; (ffap-alternate-file . nil)
;; (tmm-menubar . nil)
;; (find-file . nil)
;; (execute-extended-command . nil))

;; 自動補完を無効にする
;;(custom-set-variables ‘(helm-ff-auto-update-initial-value nil))

;; C-hでバックスペースと同じように文字を削除
;;(define-key helm-read-file-map (kbd “C-h”) ‘delete-backward-char)

;; TABで任意補完。選択肢が出てきたらC-nやC-pで上下移動してから決定することも可能
;;(define-key helm-read-file-map (kbd “TAB”) ‘helm-execute-persistent-action)

;; helm
;; minibuffer で C-k を押すと先頭から丸ごと削除され、kill ring に追加されないのを解決
;; → 今は不要
;;(setq helm-delete-minibuffer-contents-from-point t)
;;(defadvice helm-delete-minibuffer-contents (before helm-emulate-kill-line activate)
;; “Emulate `kill-line’ in helm minibuffer”
;; (kill-new (buffer-substring (point) (field-end))))

#+END_SRC

Windows上で快適に使っている emacs-w64 は、 アップデートする毎、動作が機敏になってきていたので、 割と頻繁に追従していた。

それがある時から、不調になりがちになった。

emacs-w64 自体のバージョンは 25.0.x なのだが 25.1.x を目指した変更が外のパッケージに不具合を起こす様だ。

良い機会なので、もう使っていない古いパッケージを整理した結果、 むしろサクサク動く様になって、快適快適… と思いきや。

• migemoが動かない。
• helmの挙動が、変わってしまう。
• moccur が無くなった？

helmの方は、症状が深刻ではないし、 helm自体の更新が速いので、直に元に戻るだろう。

migemo/cmigemoは、もう枯れたパッケージだし、 そんなに更新頻度が高くないので、なんとか設定で回避したい。

Warning (bytecomp): ‘isearch-word’ is an obsolete variable (as of 25.1); use ‘isearch-regexp-function’ instead.

(setq search-default-regexp-mode nil) ;; emacs25.1

brew reinstall emacs --devel --with-cocoa --with-rsvg --with-imagemagick

brew reinstall emacs --HEAD --use-git-head --with-cocoa --with-rsvg --with-imagemagick