fix "No match" in howm-sort-items-by-name etc.

diff --git a/ChangeLog b/ChangeLog
index f5f6b81..cf8fb47 100644 (file)
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,9 @@
+2023-01-28  HIRAOKA Kazuyuki  <khi@users.osdn.me>
+
+       * howm-view.el (howm-sort-items-by-name, howm-sort-items-by-numerical-name):
+       fix "No match"
+       thx > Andrei Sukhovskii san (qojop at tuta.io)
+
 2022-12-27  HIRAOKA Kazuyuki  <khi@users.osdn.me>
 
        * configure.ac: version 1.5.1-snapshot1

diff --git a/howm-view.el b/howm-view.el
index 6b4f8cb..b61997e 100644 (file)
--- a/howm-view.el
+++ b/howm-view.el
@@ -1381,7 +1381,7 @@ which simply calls howm-sort-items-by-NAME."
   (howm-sort-items #'(lambda (dummy) (random)) #'< item-list reverse-p))
 
 (defun howm-sort-items-by-name (item-list &optional reverse-p)
-  (howm-sort-items #'howm-view-item-basename #'string< reverse-p))
+  (howm-sort-items #'howm-view-item-basename #'string< item-list reverse-p))
 
 (defun howm-sort-items-by-numerical-name (item-list &optional reverse-p)
   (howm-sort-items (lambda (i)
@@ -1389,7 +1389,7 @@ which simply calls howm-sort-items-by-NAME."
                                (if (string-match "^[0-9]+$" b)
                                    (string-to-number b)
                                  howm-infinity)))
-                           #'< reverse-p))
+                           #'< item-list reverse-p))
 
 (defvar howm-view-sort-by-date-ignore-regexp "^[a-zA-Z]")
 (defun howm-sort-items-by-date (item-list &optional reverse-p)