A patch enabling org-mode to open Lotus Notes link

org-mode is an essential tool for me to drive my daily work. It includes a feature to open links with appropriate handlers; for example, an http link can be opened with Firefox. However, it does not support links to Lotus Notes documents such as "Notes:///server-name/view-name/document-id". The patch below enables org-mode to open such links with Lotus Notes.

Index: /home/tmishina/lib/elisp/org/lisp/org-html.el
===================================================================
--- /home/tmishina/lib/elisp/org/lisp/org-html.el   (revision 1861)
+++ /home/tmishina/lib/elisp/org/lisp/org-html.el   (revision 1942)
@@ -767,6 +767,7 @@
        (not type)
        (string= type "http")
        (string= type "https")
+       (string= type "Notes")
        (string= type "file"))
           (if fragment
          (setq thefile (concat thefile "#" fragment))))
@@ -1381,7 +1382,7 @@
                    desc
                    attr
                    (org-html-should-inline-p path descp))))
-        ((member type '("ftp" "mailto" "news"))
+        ((member type '("ftp" "mailto" "news" "Notes"))
          ;; standard URL, can't inline as image
          (setq rpl
            (org-html-make-link opt-plist
Index: /home/tmishina/lib/elisp/org/lisp/org.el
===================================================================
--- /home/tmishina/lib/elisp/org/lisp/org.el    (revision 1861)
+++ /home/tmishina/lib/elisp/org/lisp/org.el    (revision 1942)
@@ -4823,7 +4823,7 @@
 
 (defconst org-non-link-chars "]\t\n\r<>")
 (defvar org-link-types '("http" "https" "ftp" "mailto" "file" "news"
-              "shell" "elisp" "doi" "message"))
+              "shell" "elisp" "doi" "message" "Notes"))
 (defvar org-link-types-re nil
    "Matches a link that has a url-like prefix like \"http:\"")
 (defvar org-link-re-with-space nil
@@ -9190,7 +9190,7 @@
          (push a args1))))
        (apply cmd (nreverse args1))))
 
-    ((member type '("http" "https" "ftp" "news"))
+    ((member type '("http" "https" "ftp" "news" "Notes"))
      (browse-url (concat type ":" (org-link-escape
                    path org-link-escape-chars-browser))))